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INTRODUCTION 


The  program  "Prediction  of  Vessel  Impacts  in  a  Confined  Waterway"  was 
developed  to  allow  the  calculation  of  probable  damage  estimates  involved 
with  the  passage  of  large  commercial  vessels  through  restricted  waterways. 
During  the  development  of  the  program,  several  subroutines  were  programmed 
to  allow  for  use  and  storage  of  field  data.  All  of  these  routines  have 
been  included  in  the  package  to  make  the  program  more  useful.  These 
subroutines  include  data  input  and  storage,  data  file  correction  and 
update,  and  printout  of  data. 

This  manual  has  been  designed  to  assist  in  the  use  of  the  accompanying 
PC  program.  Each  of  the  routines  included  in  the  package  is  described  in 
detail  and  each  prompt  that  appears  on  the  screen  as  the  routines  are  used 
is  included. 

The  components  of  the  program  have  been  broken  into  five  separate  sub¬ 
routines  that  have  been  stored  on  the  accompanying  floppy  disk.  This  disk 
also  includes  IBM  DOS  version  2.10,  which  was  supplied  by  the  sponsor.  The 
program  will  load  automatically  by  simply  booting  the  system.  This  setup 
can  be  easily  changed  by  taking  the  various  routines  off  of  the  disk 
containing  DOS  2.10  and  loading  them  with  other  compatible  versions  of  DOS. 

The  program  is  written  in  BASIC  to  allow  for  ease  in  performing  any 
desired  changes.  The  names  of  the  five  separately  loadable  programs  are 
BEGIN,  BEGIN. TWO,  ONE. SUB,  TWO. SUB  and  THREE. SUB.  Flow  diagram  for  each 
program  is  shown  with  each  program  listing. 

When  the  system  is  booted,  the  PC  will  automatically  load  the  small 
routine  called  BEGIN.  The  first  screen  to  appear  will  be  the  program  name. 
This  monitor  will  clear  itself  after  about  5  seconds  and  display  the  names 
of  the  authors  and  contracting  officers.  Press  any  key  to  move  into  the 
program.  The  following  menu  appears  on  the  screen  at  this  point: 
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MAIN  PROGRAM  OPTIONS 


0  END  PROGRAM  EXECUTION  -  RETURN  TO  DOS 

1  INPUT  AND  STORE  FIELD  DATA 

GOTO  TO  PRINTER  AND/OR  PLOTTER 

2  PERFORM  CALCULATIONS 

INPUT  OPTION? 


The  first  user  option  shown  on  the  menu,  OPTION  0,  will  return  the  PC 
to  the  ready  mode  in  DOS.  If  this  option  is  desired,  simply  type  "0" 
followed  by  the  enter  key  and  the  "A»"  prompt  will  appear  on  the  screen. 

The  PC  is  now  ready  to  accept  any  DOS  commands  or  to  end  the  session. 

The  user  can  select  Option  1,  INPUT  AND  STORE  FIELD  DATA  GOTO  TO 
PRINTER  AND/OR  PLOTTER,  by  typing  "1"  followed  by  the  enter  key.  The 
computer  will  read  a  subroutine  off  of  the  disk  and  load  it  into  memory. 

The  disk  must  be  left  in  the  drive  when  reading  option  routines  from  the 
disk.  The  program  that  is  loaded  at  this  point  is  TWO. SUB. 

TWO. SUB  contains  all  of  the  programs  for  field  data  input  and 
printout.  The  first  thing  to  appear  on  the  screen  is  a  menu  containing 
options  available  to  manipulate  data.  To  select  a  path  of  interest,  again 
type  an  option  number  and  press  the  enter  key.  Each  subroutine  will  have 
brief  explanation  of  its  use  displayed  on  the  screen  before  any  prompts  for 
information  are  displayed.  (See  page  6  for  an  explanation  of  the  use  of 
Option  1  of  the  main  program  menu). 

The  printing  routines  are  designed  for  use  on  a  Okidata  93  on  8  1/2  x 
11  paper.  The  plotting  is  set  up  for  a  Hewlett  Packard  7470A  Plotter. 
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There  are  other  printing  and  plotting  options  throughout  the  program,  and 
they  also  use  the  same  hardware.  A  full  printout  of  each  subroutine, 
including  TWO.  SUB  can  be  found  at  the  end  of  this  manual  in  BASIC.  This 
allows  for  hardware  changes  to  be  made  easily. 

Option  2  of  the  main  program  menu  is  the  calculations  mode  of  the 
package.  It  contains  two  subroutines  called  ONE. SUB  and  THREE. SUB.  If 
Option  2  is  selected,  the  PC  automatically  loads  ONE. SUB.  The  program  disk 
must  again  be  left  in  the  drive  when  the  option  is  entered.  A  detailed 
explanation  of  Option  2  can  be  found  on  page  33.  The  printing  and  plotting 
routines  included  are  set  up  for  the  same  hardware  as  described  under 
Option  1. 


MAIN  PROGRAM  MENU:  OPTION  1 


If  Option  1  of  the  main  program  menu  is  selected,  the  following  menu 
appears  on  the  screen: 


OPTIONS 

O  RETURN  TO  MAIN  PROGRAM  MENU 

1  INPUT  CROSS-SECTION  DATA 

2  CHANGE  EXISTING  CROSS-SECTION  DATA  FILE 

3  PRINT  CROSS-SECTION  DATA 
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INPUT  FIELD  DRAWDOWN  DATA 
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PRINT  FIELD  DRAWDOWN  DATA 


6  INPUT  LIGHT  METER  DATA 

7  PRINT  LIGHT  METER  DATA 

8  PRINT  TURBIDITY  DATA 

9  PRINT  ICE  THICKNESS  DATA 

INPUT  OPTION  ? 


This  menu  contains  all  of  the  routines  programmed  to  store  and  print  field 
data.  They  are  set  up  to  store  data  on  a  disk  in  the  "B"  drive,  although 
this  can  be  changed  within  the  program.  If  it  is  changed  to  the  "A"  drive, 
or  the  drive  that  the  program  is  loaded  in,  be  sure  to  replace  the  program 
before  selecting  Option  0,  RETURN  TO  MAIN  PROGRAM  MENU.  All  other  options, 

1-9,  are  stored  in  the  computer's  memory. 

1 


Option  0:  Return  to  Main  Program  Menu 

If  Option  0  is  selected,  the  computer 
the  user  to  either  end  the  session  or  move 


returns  to  BEGIN.  This  allows  I 

to  the  calculations  mode. 


Option  1:  Input  Cross-Section  Data 

Option  1  allows  for  input  and  storage  of  cross-section  data.  The 
parameters  are  distance  to  a  point  and  elevation  of  the  point.  The 
distances  are  measured  from  a  "0"  point  on  the  green  side.  It  is  best  to 
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start  the  data  at  some  point  on  shore  to  allow  for  possible  changes  in 
water  surface  elevation. 

When  Option  1  is  selected,  the  following  description  appears  on  the 
screen: 

THIS  ROUTINE  IS  DESIGNED  TO  ALLOW  INPUT 
AND  STORAGE  OF  CROSS-SECTION  DATA. 

ALL  DISTANCES  SHOULD  BE  INPUT  FROM  A  BASE 
ON  THE  GREEN  SIDE  WHICH  IS  THE  LEFT  SIDE 
LOOKING  UP  RIVER. 

INPUT  DATA  AS  DISTANCE , ELEVATION 

FOR  EACH  DATA  POINT. 

HIT  SPACE  BAR  TO  CONTINUE. 


After  pressing  the  space  bar  the  prompt  to  enter  data  appears  as 
follows: 


ENTER  DISTANCE  FROM  REFERENCE  <X>  AND  ELEVATION <Y> , 
(enter  <-l,0>  to  end  data  entry) 
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Enter  all  of  the  desired  data  points,  one  set  at  a  time.  Notice  that 
each  pair  is  separated  by  a  comma  and  must  be  followed  by  return  or  enter 
key.  When  all  of  the  data  pairs  have  been  entered,  type  "-1,0"  to  end 
entry  as  fol lows : 


ENTER  DISTANCE  FROM  REFERENCE ( X  >  AND  ELEVATION < Y > , 
(enter  (-1,0)  to  end  data  entry)  -1,0 


After  data  entry  has  been  finished,  the  following  text  appears  on  the 
screen: 


CHECK  DATA  TO  SEE  IF  YOU  WANT  TO  MAKE  ANY  CHANGES 
DATA  WILL  BE  DISPLAYED  20  LINES  AT  A  TIME. 


HIT  SPACE  BAR  TO  CONTINUE. 


At  this  point,  the  data  can  be  checked  to  see  if  any  points  were 
entered  improperly.  For  purposes  of  explanation  in  this  manual,  a  small 
data  file  was  entered.  After  pressing  the  space  bar  the  file  is  displayed 
on  the  screen: 
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DATA  POINT 

DISTANCE (X  > 

ELEVATION  <  Y  > 

1 

100 

600 

2 

200 

599 

3 

300 

595 

4 

400 

590 

5 

500 

580 

6 

600 

570 

7 

700 

570 

a 

800 

580 

9 

900 

590 

10 

1000 

595 

11 

1100 

600 

DO  YOU  WANT  TO  CHANGE  ANY  DATA  POINTS  (Yea/No) 


Notice  that  at  the  bottom  of  the  display,  the  user  is  prompted  to 
change  any  points  desired.  If  all  of  the  data  are  correct,  type  "NO"  and 
the  computer  will  move  to  the  data  storage  routine.  To  change  a  point  or 
points  type  "YES"  and  the  screen  prompts: 


ENTER  DATA  POINT  6 

ENTER  DISTANCE  <  X )  AND  ELEVATION  <  Y  >  600,575 


Here  data  point  6  was  entered  and  changed  to  600,575  as  shown  above. 
After  the  two  prompts  are  answered  the  data  are  redisplayed  as: 
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DATA  POINT 

D I STANCE ( X ) 

ELEVATION  <  Y  > 

1 

100 

600 

2 

200 

599 

3 

300 

595 

4 

400 

590 

5 

500 

580 

6 

600 

575 

7 

700 

570 

8 

800 

580 

9 

900 

590 

10 

1000 

595 

11 

1100 

600 

DO  YOU  WANT  TO  CHANGE  ANY  DATA  POINTS  (Yes/No) 


Notice  that  point  6  has  been  changed.  If  it  is  desired  to  add  a  point 
to  the  file,  enter  the  data  point  number  that  is  next  in  the  file  along 
with  the  distance  and  elevation  as  shown: 


ENTER  DATA  POINT  12 

ENTER  DISTANCE(X)  AND  ELEVATION ( Y >  1200,600 


After  entering  the 

changes  the  data 

are  redisplayed  as 

DATA  POINT 

DISTANCE (X) 

ELEVATION  C  Y  > 

1 

100 

600 

2 

200 

599 

3 

300 

595 

4 

400 

590 

5 

500 

580 

8 


6 

600 

575 

7 

700 

570 

8 

800 

580 

9 

900 

590 

10 

1000 

595 

11 

1100 

600 

12 

1200 

600 

DO  YOU 

WANT  TO  CHANGE  ANY 

DATA  POINTS  (Yes/No) 

Data  point  12  has  been  added.  If  the  point  that  was  added  is  in  the 
middle  of  the  file,  it  will  still  be  displayed  at  the  end.  It  will  be  put 
into  the  correct  order  in  the  file  before  being  stored. 

Once  all  desired  data  points  have  been  changed  or  added,  the  computer 
sorts  the  values  and  puts  them  in  order  of  distance  from  green  side  base¬ 
line.  The  following  prompt  then  appears  on  the  screen: 


PUT  DATA  DISK  IN  DRIVE  'B' 

HIT  SPACE  BAR  TO  CONTINUE. 


At  this  time,  insert  the  data  storage  disk  in  drive  B  and  press  the 
space  bar. 

The  following  series  of  questions  now  comes  up  in  order.  Answer  each 
question  with  a  return  or  enter.  The  water  surface  elevation  is  the 
elevation  at  the  time  the  sounding  data  were  collected: 


INPUT  NAME  OF  NEW  DATA  FILE  B : TEST 
NAME  OF  SECTION  ?  TEST 
DATE  OF  SOUNDING  ?  1/1/85 
WATER  SURFACE  ELEVATION  *  ?  600 
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After  all  of  the  prompts  have  been  answered,  the  data  is  stored  under 
the  name  entered  and  the  screen  reverts  to  the  data  input  menu  for  a  new 
option  input. 


Option  2:  Change  Existing  Cross-Section  Data  File 

After  cross-section  data  have  been  stored  on  the  data  disk,  they  can 
be  recalled  and  points  changed  or  added  using  this  routine. 

If  Option  2  is  selected,  the  following  description  appears  on  the 
screen: 

THIS  ROUTINE  IS  DESIGNED  TO  ALLOW  CHANGES 
OF  AN  EXISTING  CROSS-SECTION  DATA  FILE. 

AFTER  THE  DATA  HAS  BEEN  READ  IT  WILL  BE 
DISPLAYED  20  LINES  AT  A  TIME  TO  DETERMINE 
WHICH  POINTS  ARE  TO  BE  CHANGED.  THE  NEW  FILE 
WILL  THEN  BE  STORED  ON  THE  DATA  DISK. TO  ADD 
A  POINT  INPUT  THE  NEXT  NUMBER  AFTER  THE  LAST 
DATA  POINT  IN  THE  FILE  AND  THE  COMPUTER  WILL 
STORE  IT  IN  ITS  CORRECT  PLACE  IN  THE  FILE. 

PUT  DATA  DISK  IN  DRIVE  'B' 

HIT  SPACE  BAR  TO  CONTINUE. 
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When  the  space  bar  is  pressed,  the  user  is  prompted  for  the  name  of 
the  data  file  and  the  information  shown  below  is  printed  on  the  display: 


INPUT  NAME  OF  DATA  FILE  B : TEST 

NAME  OF  SECTION  TEST 
DATE  OF  SOUNDING  1/1/85 
WATER  SURFACE  ELEVATION  AT  DATE  =  600 

NUMBER  OF  DATA  POINTS  =  12 

END  OF  DATA  FILE  B : TEST 

HIT  SPACE  BAR  TO  CONTINUE. 


This  is  the  same  file  that  was  entered  in  the  earlier  section.  The 
parameters  are  shown  as  they  were  read  from  the  disk. 

Press  the  space  bar  and  the  next  screen  shows: 


DATA  POINT 

DISTANCE <X) 

ELEVATIONC Y> 

1 

100 

600 

2 

200 

599 

3 

300 

595 

4 

400 

590 

5 

500 

580 

6 

600 

575 

7 

700 

570 

6 

800 

580 

II 


9 

900 

590 

10 

1000 

595 

11 

1100 

600 

12 

1200 

600 

DO  YOU  WANT  TO  CHANGE  ANY  OF  THESE  DATA  POINTS  (Yes/No) 


The  procedure  for  changing  points  is  the  same,  however,  if  there  are 
more  data  points. 

Assume  that  it  is  desired  to  change  point  6  to  600,577.  Enter  the 
data  as: 


ENTER  POINT  YOU  WANT  TO  CHANGE  OR  ADD, 

DISTANCED)  .AND  ELEVATION  (  Y  )  6  ,  GOO  ,  577 


Notice  that  the  three  parameters  are  separated  by  two  commas.  After 
the  change  has  been  made  and  entered,  the  file  is  redisplayed  as: 


DATA  POINT 

DISTANCE <X> 

ELEVATION  <  Y) 

1 

100 

600 

2 

200 

599 

3 

300 

595 

4 

400 

590 

5 

500 

580 

6 

600 

577 

7 

700 

570 

8 

800 

580 

9 

900 

590 

12 


10 

1000 

595 

11 

1100 

600 

12 

1200 

600 

DO  YOU  WANT  TO  CHANGE  ANY  OF  THESE  DATA  POINTS  (Yes/No) 


Notice  that  data  point  6  has  the  new  values.  To  add  a  point  within 
the  file,  enter  the  next  number  in  line  followed  by  the  required  distance 
and  elevation  as: 


ENTER  POINT  YOU  WANT  TO  CHANGE  OR  ADD. 

D I STANCE  <  X )  . AND  ELEVATION (Y) 13. 750.575 


This  file  is  then  reprinted  on  the  screen  as: 


DATA  POINT 
1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
13 


DIST  ANCE  <  X ) 
100 
200 
300 
400 
500 
600 
700 
800 
900 
1000 
1100 
1200 
750 


ELEVATION  <Y) 
600 

599 
595 
590 
580 
577 
570 
580 
590 
595 

600 
600 
575 


DO  YOU  WANT  TO  CHANGE  ANY  OF  THESE  DATA  POINTS  (Yes/No) 
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Notice  that  the  data  are  left  as  point  number  13,  although  this  is  not 
the  correct  order.  It  will  be  put  into  the  order  by  distance  before  it  is 
stored  on  the  data  disk. 

When  all  of  the  changes  have  been  made,  enter  "NO"  and  the  prompt  is: 


PUT  DATA  DISK  IN  DRIVE  'B' 

HIT  SPACE  BAR  TO  CONTINUE. 


Insert  the  disk,  press  the  space  bar  and  answer  these  questions  as  in 
Option  1. 


INPUT  NAME  OF  NEW  DATA  FILE  B'.TESTl 
NAME  OF  SECTION  ?  TEST 
DATE  OF  SOUNDING  ?  1/1/85 
WATER  SURFACE  ELEVATION  *  ?  600 
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If  it  is  desired  to  save  the  previous  file  unchanged,  enter  a  differ 
ent  name  than  before.  In  this  example,  TEST1  is  used  as  a  new  file  name. 
8oth  files  are  now  stored  on  the  disk.  After  all  parameters  have  been 
entered  the  PC  returns  to  the  data  input  menu. 


Option  3:  Print  Cross-Section  Oata 

This  routine  will  print  out  a  hard  copy  of  the  data  stored  on  the 
disk.  When  Option  3  is  selected  this  text  appears: 


PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  HEAD 
AT  THE  TOP  OF  THE  PAGE. 

PUT  DA^A  DISK  IN  DRIVE  '  B ' 

HIT  SPACE  BAR  TO  CONTINUE. 

Place  the  printer  head  on  the  perforated  line  at  the  top  of  the  page, 
put  the  data  disk  in  the  drive  and  press  the  space  bar. 

The  user  is  then  prompted  for  the  data  file  name  to  be  printed  as: 


INPUT  NAME  OF  DATA  FILE  B : TEST1 

NAME  OF  SECTION  TEST 

DATE  OF  SOUNDING  1/1/85 

WATER  SURFACE  ELEVATION  AT  DATE  =  600 
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NUMBER  OF  DATA  POINTS  =  13 

END  OF  DATA  FILE  B : TEST1 

HIT  SPACE  BAR  TO  CONTINUE. 

After  hitting  the  space  bar,  the  data  are  sent  to  the  printer  and  the 
table  shown  in  Figure  1  is  the  result.  If  there  are  more  data  than  will 
fit  on  one  page,  the  routine  will  put  the  bottom  margin  on  the  sheet  and 
move  to  a  continued  heading  on  the  next  page,  along  with  the  rest  of  the 
data . 

Option  4:  Input  Field  Drawdown  Data 

Option  4  uses  basically  the  same  format  for  entering  data  as  Option  1. 
The  first  display  to  appear  on  the  screen  is: 

THIS  ROUTINE  IS  DESIGNED  TO  ALLOW  INPUT 
AND  STORAGE  OF  DRAWDOWN  DATA. 

ALL  DISTANCES  SHOULD  BE  INPUT  FROM  A  BASE 
ON  THE  GREEN  SIDE  WHICH  IS  THE  LEFT  SIDE 
LOOKING  UP  RIVER. 

INPUT  DATA  AS  TIME, GAUGE  READING 

FOR  EACH  DATA  POINT. 

HIT  SPACE  BAR  TO  CONTINUE. 
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SOUNDING  DATA 

NAME  OE  SECT  ION  'TEST 

©  0  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ©  ©  © 0 0 0 0 0 0 0 0 0 0 


DATE  OF  SOUNDING  1/1/85 

WATER  SURFACE  ELEVATION  in  feet  =  600 


DATA  POINT 


DISTANCE  <f  t  >  ELEVATION (ft ) 


1 

100.0 

600.0 

2 

200.0 

599.0 

3 

300.0 

595.0 

4 

400.0 

590.0 

5 

500.0 

580.0 

6 

600.0 

577.0 

7 

700.0 

570.0 

8 

750.0 

575.0 

9 

800.0 

580.0 

10 

900.0 

590.0 

11 

1000.0 

595.0 

12 

1100.0 

600.0 

13 

1200.0 

600.0 

Figure  1  Test  Sounding  Data 
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After  pressing  the  space  bar,  the  user  is  prompted  to  enter  data  as: 


TIME  FROM  'O'  in  sec.  AND  GAUGE  READING 
in  i nches- ( enter  (-1,0)  to  end  date  entry) 


Time  from  "0"  is  the  time  that  each  staff  gauge  reading  is  made.  "0" 
time  is  the  start  time  before  the  vessel  reaches  the  observation  line.  The 
gauge  reads  the  water  surface  at  a  given  time.  Enter  the  data  in  pairs  and 
again  enter  "-1,0"  to  end  data  entry.  When  all  data  are  in,  the  following 
appears  on  the  screen: 


CHECK  DATA  TO  SEE  IF  YOU  WANT  TO  MAKE  ANY  CHANGES 

DATA  WILL  BE  DISPLAYED  20  LINES  AT  A  TIME. 


HIT  SPACE  BAR  TO  CONTINUE. 


The  data  are  again  displayed  20  lines  at  a  time  as  in  Option  1.  The  file 
shown  below  was  entered  as  an  example. 
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DATA  POINT 

TIME  <  T ) 

READING (Y) 

1 

0 

10 

2 

20 

9 

3 

40 

8 

4 

50 

7 

5 

60 

6 

6 

70 

7 

7 

80 

8 

8 

100 

10 

9 

120 

11 

10 

140 

10 

11 

160 

10 

DO  YOU  WANT 

TO  CHANGE  ANY 

DATA  POINTS  (Yes/Nol 

If  any  changes  need  to  be  made  they  are  entered  in  the  same  fashion  as  in 
Option  1.  When  the  file  is  correct,  the  user  is  prompted  to  insert  the 
data  disk. 


PUT  DATA  DISK  IN  DRIVE  'B' 

HIT  SPACE  BAR  TO  CONTINUE. 


After  pressing  the  space  bar,  the  following  series  of  questions 
appears  on  the  screen  in  this  order: 


INPUT  NAME  OF  NEW  DATA  FILE  B : DRAW 
NAME  OF  SECTION  ?  TEST 
DATE  OF  OBSERVATION  ?  1/1/85 
VESSEL  NAME  ?  DRAWTEST 
UPBOUND  or  DOWNBOUND  ?  UPBOUND 
VESSEL  LENGTH  (ft)  »  ?  730 
VESSEL  BEAM  (ft)  -  ?  75 
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VESSEL  DRAFT  (ft)  =  ?  25 
VESSEL  SPEED  (ft/sec)  =  ?  10 
BOW  ON  TIME  (sec)  =  ?  20 
STERN  ON  TIME  (sec)  =  ?  SO 

DISTANCE  TO  STAFF  GAUGE  from  green  side  (ft)  =  ?  50 
BACKGROUND  READING  (in)  =  ?  10 


Answer  all  of  the  questions  as  appropriate.  The  "bow  on  time"  and 
"stern  on  time"  are  the  times  that  the  bow  and  stern  of  the  vessel  cross 
the  observation  line.  The  background  reading  is  the  staff  gauge  reading 
before  any  effect  of  the  oncoming  vessel  has  occurred.  When  the  last 
parameter  has  been  entered,  the  data  are  stored  on  the  disk  and  the  screen 
returns  to  the  data  entry  menu. 


Option  5:  Print  Drawdown  Data 

Option  5  will  print  a  hard  copy  of  the  drawdown  data  entered  in  Option 
4  as  Option  3  printed  the  cross-section  data. 

The  first  text  to  appear  is: 


PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  HEAD 
AT  THE  TOP  OF  THE  PAGE 

PUT  DATA  DISK  IN  DRIVE  'B' 

HIT  SPACE  BAR  TO  CONTINUE. 
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Again  place  the  printer  head  at  the  top  of  the  page,  insert  the  data  disk 
and  press  the  space  bar.  The  user  is  then  prompted  for  the  data  file  name 
as: 


INPUT  NAME  OF  NEW  DATA  FILE  D : DRAW 


NAME  OF  SECTION  TEST 
DATE  OF  OBSERVATION  1/1/85 
VESSEL  NAME  DRAWTEST 
UPBOUND  or  DOWNBOUND  UPBOUND 
VESSEL  LENGTH  (ft)  =  730 
VESSEL  BEAM  (ft)  =  75 
VESSEL  DRAFT  (ft)  =  25 
VESSEL  SPEED  (ft/sec)  =  10 
BOW  ON  TIME  (sec)  =  20 
STERN  ON  TIME  (sec)  =  80 

DISTANCE  TO  STAFF  GAUGE  from  green  side  (ft)  =  50 
BACKGROUND  READING  (in)  =  10 

HIT  SPACE  BAR  TO  CONTINUE. 


The  parameters  stored  on  the  disk  appear  below  the  prompt  as  shown 
above.  When  the  space  bar  is  pressed  the  printout  starts  and  the  result  is 
as  is  shown  in  Figure  2. 

After  the  printout  is  complete,  a  prompt  appears  on  the  screen: 


DO  YOU  WANT  TO  PRINT  ANOTHER  (Yes/No)  ? 


If  "YES"  is  entered  another  printout  is  obtained.  "NO"  returns  to  the  data 
entry  menu. 
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&<siidQi2QQi2Q^<3<3Q(afSidQl3(3Q@Q@@<3<3<a<3QQQQQQ<3QQ®<3@QQQQ<a 
DRAWDOWN  DATA 

NAME  OF  SECTION  TEST 

®@©S®9®@S@900©@®0®0SS000@00®©@@e0@@000@0®®0®@ 

DATE  OF  OBSERVATION  1/1/85 

VESSEL  NAME  DRAWTEST 

DIRECTION  UPBOUND 

VESSEL  LENGTH  in  feet  =  730 

VESSEL  BEAM  in  feet  =  75 

VESSEL  DRAFT  in  feet  =  25 

VESSEL  SPEED  in  feet/sec.  =  10 

BOW  ON  TIME  in  sec  =  20 


STERN  ON  TIME  m  sec  =  80 


DISTANCE  TO 

STAFF  GAUGE 

from  green 

aide  in  feet 

BACKGROUND 

READING  in  inches  =  10 

GAUGE 

CHANGE 

DATA  POINT 

TIME  <  sec ) 

READING  C in ) 

FROM  BG  (  ii 

1 

0.0 

10.0 

0.0 

2 

20.0 

9.0 

-1.0 

3 

40.0 

8.0 

-2.0 

4 

50.0 

7.0 

-3.0 

5 

60.0 

6.0 

-4.0 

6 

70.0 

7.0 

-3.0 

7 

80.0 

8.0 

-2.0 

8 

100.0 

10.0 

0.0 

3 

120.0 

11.0 

1.0 

10 

140.0 

10.0 

0.0 

11 

160.0 

10.0 

0.0 

Figure  2  Test  Drawdown  Data 


50 
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This  option  is  designed  for  the  entry  and  storage  of  light  meter  data. 
The  device  and  procedure  used  to  collect  the  data  can  be  found  in  the  main 
report.  When  Option  6  is  selected,  the  following  routine  description 
appears: 

THIS  ROUTINE  ALLOWS  FOR  INPUT  OF  LIGHT 
METER  DATA.  AFTER  ALL  VALUES  HAVE  BEEN 
INPUT  THEY  WILL  BE  STORED  ON  THE  DATA  DISK. 

INPUT  DATA  AS  DEPTH , READING 

FOR  EACH  POINT. 

PUT  DATA  DISK  IN  DRIVE  B 
HIT  ANY  KEY  TO  CONTINUE 


Put  the  data  disk  in  the  drive  and  hit  the  space  bar.  The  list  of 
questions  shown  below  must  then  be  answered. 

FILE  NAME?  BlLIGHT 
SITE  NAME  ?  TEST 

RDG  LOCATION  <dist  off  green  si.de?)?  500 
OVERHEAD  READING  ?  2000 

ICE  THICKNESS  in.  (0  for  ice  free  conditions)  ?  0 
READING  JUST  UNDER  SURFACE  OR  ICE  SHEET  ?  1800 


The  main  report  explains  what  each  reading  is  when  the  light  meter  is  used. 
After  these  parameters  are  entered  the  data  are  put  in  as  follows: 


ENTER  DATA  POINT  --  DEPTH  of  reading  ft, METER  READING 
INPUT  -9999,0  TO  FINISH  DATA  INPUT 
DATA  PAIR  NO.  1  = 

?  2,1700 

DATA  PAIR  NO.  2  = 

?  5,1400 

DATA  PAIR  NO.  3  = 

?  10,1000 

DATA  PAIR  NO.  4  = 

?  15,700 

DATA  PAIR  NO.  5  * 

?  20,400 

DATA  PAIR  NO.  6  * 

?  -9999,0 


Enter  each  pair  as  depth  of  reading  and  reading  separated  by  a  comma. 
When  all  of  the  data  have  been  entered  type  "-9999,0"  and  the  file  will  be 
stored  on  the  disk.  The  computer  then  returns  to  the  data  entry  menu. 


Option  7:  Print  Light  Meter  Data 

When  Option  7  is  selected,  the  first  display  is: 

PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  HEAD 
AT  THE  TOP  OF  THE  PAGE 
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PUT  DATA  DISK  IN  DRIVE  B 

HIT  ANY  KEY  TO  CONTINUE 

Place  the  printer  head  as  in  Options  3  and  5  and  put  the  light  meter 
data  disk  in  the  drive.  After  pressing  any  key  the  user  is  prompted  for 
the  file  name,  and  the  following  data  appear  on  the  screen  from  the  stored 
file. 


FILE  NAME?  B : LIGHT 

TEST 

DISTANCE  =  500 

OVERHEAD  READING  =  2000 

ICE  THICKNESS  »  0  in. 

READING  UNDER  SURFACE  *  1800 

1  .  2  1700 

2  .  5  1400 

3  .  10  1000 

4  .  15  700 

5  .  20  400 

END  OF  DATA  FILE  B : LIGHT 


HIT  ANY  KEY  TO  CONTINUE 


Press  any  key  and  these  questions  are  prompted  in  order. 


DATE  OF  READINGS  ?  1/1/85 
TIME  OF  READINGS  ?  1:00  PM 
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SKY  WAS  (  CLEAR/CLOUDY ) ?  CLEAR 

ICE  CONDITION  (NO  ICE/NO  SNOW/SNOWCOVERED)  ?  NO  ICE 
TOTAL  DEPTH  AT  LOCATION  (ft)  ?  34 
WERE  TURBIDITY  SAMPLES  TAKEN  (Y/N>?  Y 

INPUT  DEPTH  OF  SAMPLE (ft) ,TURBIDITY( JTU) ?  10,1 
MORE  SAMPLES  (Y/N)  ?  N 


If  "NO  ICE"  or  "NO  SNOW"  is  entered  for  the  ice  condition  the  above 
questions  will  be  the  result.  If  "SNOWCOVERED"  is  entered  the  parameters 
that  follow  are  also  included.  The  words  "NO  ICE",  "NO  SNOW"  and  "SNOW- 
COVERED"  must  be  spelled  correctly. 


DATE  OF  READINGS  ?  1/1/85 
TIME  OF  READINGS  ?  1:00  PM 


SKY  WAS  (CLEAR/CLOUDY)?  CLOUDY 

ICE  CONDITION  (NO  ICE/NO  SNOW/SNOWCOVERED) 

PERCENTAGE  SNOW  ON  ICE  ?  20 

DEPTH  OF  SNOW  ON  ICE  (in)?  3 

TOTAL  DEPTH  AT  LOCATION  (ft)  ?  34 

WERE  TURBIDITY  SAMPLES  TAKEN  (Y/N)?  N 


?  SNOWCOVERED 


To  enter  turbidity  readings  taken  at  the  same  time,  if  there  are  any, 
answer  the  last  question  "yes"  and  the  prompt  that  was  shown  two  lists 
above  will  appear  for  each  turbidity  reading.  Enter  the  depth  of  the 
reading  and  the  turbidity  separated  by  a  comma. 

When  all  data  have  been  entered,  they  are  sent  to  the  printer  and 
Figure  3  is  the  result.  If  no  turbidities  were  measured,  the  printout 
looks  like  Figure  4.  After  printing  is  complete  the  computer  returns  to 
the  data  entry  menu. 
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OC3@OO®0t9(9@@(9QQ@(9(9Q@(3(d@QQ@@Q(DQQ@Q 
LIGHT  METER  READINGS 
©  ©  OQSQO(3(3S0OQ  Cs3  ©  ©  ©  ©  (S3  ©  ©  ©  ©  ©  ©  ©  ©  ©  ©  ©  ©  © 


SITE  NAME  TEST 

READING  LOCATION  (dist.  from  green  side  ft)  500 

DATE  1/1/85 

TIME  1:00  PM 

SKY  WAS  CLEAR 

TOTAL  DEPTH  AT  LOCATION  (ft)  34 

OVERHEAD  LIGHT  READING  2000 

LIGHT  READING  JUST  UNDER  WATER  SURFACE  1800 

DEPTH  OF  LIGHT  METER  TURBIDITY 

* » «  READING(ft)  «*«  «**  READING  (JTU)  •«« 

2.0  1700.00 

5.0  1400.00 

10.0  1000.00  1.00 

15.0  700.00 

20.0  400.00 


Figure  3  Test  Light  Meter  Data 


®  @  Q  (9000  Q  00000  O  taiaiatafgtaiBra  ia  ®  ia  fa  fa  fa  fa  fa  fa  fa 
L-  XGHT  METER  READ  X  NOS 
fa  00000  fa  fa  fa  fa  ra  fa  fa  ra  ra  fa  fa  fa  fa  fa  fa  ra 


SITE  NAME  TEST 

READING  LOCATION  (diet,  fron  green  aide  ft)  500 

DATE  1/1/85 

TIME  1 :00  PM 

SKY  WAS  CLOUDY 

ICE  CONDITION  SNOWCOVERED 

PERCENTAGE  SNOW  ON  ICE 
DEPTH  OF  SNOW  ON  ICE  <in> 

ICE  THICKNESS  <in)  O 

TOTAL  DEPTH  AT  LOCATION  <ft> 

OVERHEAD  LIGHT  READING  2000 

LIGHT  READING  JUST  UNDER  ICE  1800 

DEPTH  OF  LIGHT  METER 

«•«  READING  «*•  ***  READING 


2.0 

1700.00 

5.0 

1400.00 

10.0 

1000.00 

15.0 

700 . 00 

20.0 

400.00 

20 

3 

34 


Figure  4  Test  Light  Meter  Data  with  Ice  Cover 
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Option  8:  Print  Turbidity  Data 

Turbidity  data  can  be  printed  using  Option  8.  The  first  prompt  after 
the  selection  of  8  is: 

PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  HEAD 
AT  THE  TOP  OF  THE  PAGE 

HIT  SPACE  BAR  TO  CONTINUE. 


Place  the  printer  head  as  in  earlier  printout  options  and  press  the  space 
bar.  The  next  three  questions  result. 

SITE  NAMH  ?  TEST 

DATE  OF  READINGS  ?  1/1/85 

NUMBER  OF  SAMPLING  LOCATIONS?  3 


The  number  of  sampling  locations  are  the  number  of  positions  at 
different  distances  along  the  observation  line  or  river  cross-section. 

When  these  three  prompts  have  been  answered,  the  user  is  asked  to  enter  the 
data  for  each  sampling  location.  An  example  of  this  is'  as  follows: 


DISTANCE  TO  LOCATION  1  (from  green  side  in  feet) 
?  500 

TOTAL  DEPTH  AT  LOCATION  1  (ft) 

?  10 

INPUT  DEPTH  OF  SAMPLE , TURBIDITY (JTU) 

?  5,1 

INPUT  MORE  DATA  FOR  LOCATION  1  Y/N? 

?  N 
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DISTANCE  TO  LOCATION  2  (from  green  side  in  feet) 
?  1000 

TOTAL  DEPTH  AT  LOCATION  2  (ft) 

?  30 

INPUT  DEPTH  OF  SAMPLE . TURBIDITY ( JTU > 

?  10,1 

INPUT  MORE  DATA  FOR  LOCATION  2  Y/N? 

?  Y 

INPUT  DEPTH  OF  SAMPLE , TURBIDITY ( JTU ) 

?  20,1 

INPUT  MORE  DATA  FOR  LOCATION  2  Y/N? 

?  N 


DISTANCE  TO  LOCATION  3  (from  green  side  in  feet) 
?  1500 

TOTAL  DEPTH  AT  LOCATION  3  (ft) 

?  10 

INPUT  DEPTH  OF  SAMPLE , TURBIDITY ( JTU ) 

?  5,1 

INPUT  MORE  DATA  FOR  LOCATION  3  Y/N? 

?  N 


Any  number  of  samples  can  be  entered  at  different  depths  for  each 
location.  After  the  last  turbidity  value  has  been  entered  for  the  final 
location,  the  data  are  sent  to  the  printer  and  the  result  is  as  shown  in 
Figure  5.  When  printing  is  completed,  the  data  entry  menu  reappears  on  the 
screen. 


Option  9:  Print  Ice  Thickness  Data 

Option  9  will  produce  a  hard  copy  of  ice  thickness  at  various 
locations  along  a  cross-section  line.  The  first  display  is: 
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T'UREJIDILT'Y  HEADINGS 
0  CD  O 0 0 0 0 0 0 0 0 0 0 CD  0  0  CD  CD  CD  0  CD  £  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD 


SITE  NAME  TEST 

DATE  1/1/S5 

TOTAL  DEPTH  AT  LOCATION  1  (ft)  10 

TOTAL  DEPTH  AT  LOCATION  2  (ft)  30 

TOTAL  DEPTH  AT  LOCATION  3  (ft)  10 

ALL  DISTANCES  ARE  FROM  THE  GREEN  SIDE  BASELINE 

DIST.  TO  DEPTH  OF  TURBIDITY 


**•  SAMPLE ( ft )  *•» 

•  *«  SAMPLE  *«» 

**»  ( JTU ) 

LOCATION 

1 

500.0 

5.0 

1.00 

LOCATION 

2 

1000.0 

10.0 

1  .00 

20.0 

1.00 

LOCATION 

3 

1500.0 

5.0 

1.00 

Figure  5  Test  Turbidity  Readings 
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PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  HEAD 
AT  THE  TOP  OF  THE  PAGE 

HIT  SPACE  BAR  TO  CONTINUE. 


Place  the  printer  head  as  before,  press  the  space  bar  and  answer  the 
following  questions. 


SITE  NAME  ?  TEST 

DATE  OF  READINGS  ?  1/1/B5 


Next  enter  the  data  as  distance  to  location  followed  by  the  depth  at 
the  location  and  the  ice  thickness  separated  by  a  comma.  An  example  of 
some  data  is: 


DISTANCE  TO  LOCATION  1  (from  green  side  in  feet) 
?  500 

INPUT  DEPTH  AT  LOC.<ft>,ICE  THICKNESS < in) 

7  10,12 

INPUT  MORE  DATA  Y/N? 

?  Y 


DISTANCE  TO  LOCATION  2  (from  green  aide  in  feet) 
?  1000 

INPUT  DEPTH  AT  LOC.(ft),ICE  TH ICKNESS ( in) 

?  30,12 

INPUT  MORE  DATA  Y/N? 

?  Y 
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DISTANCE  TO  LOCATION  3  (fro®  green  aide  m  feet) 

?  1500 

INPUT  DEPTH  AT  LOC . (ft) , ICE  THICKNESS ( in) 

?  10,12 

INPUT  MORE  DATA  Y/N? 

?  N 

Type  "NO"  for  "Input  more  data?"  when  all  the  sampling  locations  have 
been  entered.  The  data  are  then  sent  to  the  primer  as  shown  in  Figure  6. 
After  printing  is  complete  the  screen  returns  to  the  data  entry  menu. 

This  completes  the  description  of  the  routines  contained  under  Option 
1  of  the  main  program  menu  and  TWO. SUB.  The  user  should  attempt  the 
examples  contained  in  this  section  of  the  manual  to  clarify  its  use. 


MAIN  PROGRAM  MENU:  OPTION  2 


Option  2  of  the  main  program  menu,  PERFORM  CALCULATIONS,  contains  the 
various  routines  required  to  calculate  areas  of  cross-sections,  drawdowns 
and  relative  damage,  and  light  extinction  coefficients. 

If  Option  2  is  selected  at  the  beginning  of  the  program,  the  sub¬ 
routine  BEGIN  loads  the  subroutine  ONE. SUB  into  memory. 

The  following  menu  is  the  first  thing  to  appear  on  the  screen: 


OPTIONS 


0  RETURN  TO  MAIN  PROGRAM  MENU 

1  CALCULATE  AREAS  AND  TOPWIDTHS  OF  CROSS-SECTIONS 

2  CALCULATE  DRAWDOWNS  USING  A  SINGLE  VESSEL  SPEED 
AND  GIVE  RELATIVE  DAMAGE 
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Q0QQ0QQSOQOt9C30Q0Q(9S0QQQOl9QlBQ0@QS 

ICE  -THICKNESSES 

O  @QQ@@@@Q@@(3Q@  ra  ©  ©  fa  ©  ©  ©  ©  ©  ©  ©  ©  ©  ©  fa  ©  ©  fa 


SITE  NAME  TEST 

DATE  1/1/85 

ALL  DISTANCES  ARE  FROM  THE  GREEN  SIDE  BASELINE 


DIST.  TO 

DEPTH  AT 

ICE  THICK 

»  *  «  LOC .  (f t )  *  *  * 

«  * *LOC . <f t) «  *  * 

«««  (in.)  «»» 

LOCATION  1 

500.0 

10.0 

12.0 

LOCATION  2 

1000.0 

30.0 

12.0 

LOCATION  3 

1500.0 

10.0 

12.0 

Figure  6  Test  Ice  Thicknesses 
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3  CALCULATE  DRAWDOWNS  ITERATING  VESSEL  SPEED 
AND  GIVE  RELATIVE  DAMAGE 

4  FIT  LIGHT  METER  DATA  TO  LINE  AND  GIVE  RESULTS 

INPUT  OPTION  ? 


Options  1,  2  and  4  are  all  contained  in  ONE. SUB.  If  Option  3  is 
selected,  the  computer  loads  THREE. SUB,  which  contains  the  program  to 
iterate  vessel  speeds.  Each  of  these  options  is  explained  in  detail  in  the 
following  sections  of  this  manual.  The  various  calculation  routines 
contain  printout  and  plotting  subroutines  that  can  be  used  if  prompted. 

All  calculated  answers  will  be  displayed  on  the  screen  before  the  prompts 
to  redirect  to  the  printer  and/or  plotter  appear.  This  allows  the  program 
to  be  used  effectively  without  printing  and/or  plotting  unnecessary  output. 


Option  0:  Return  to  Main  Program  Menu 

If  Option  0  is  selected,  the  computer  reloads  BEGIN  and.  the  main 
program  menu  comes  back  on  the  screen.  This  allows  the  user  to  return  to 
DOS  or  to  the  data  input  mode. 


Option  1:  Calculate  Areas  and  Topwidths  of  Cross-Section 

Option  1  allows  the  user  to  calculate  the  area  of  a  given  cross- 
section  using  data  stored  by  Option  1  of  the  data  input  menu.  It  will 
calculate  the  area  of  water  given  the  water  surface  elevation.  It  also 
calculates  the  topwidth  of  the  section  at  that  water  surface  elevation. 

The  topwidth  is  the  distance  between  the  two  points  on  opposite  river  banks 
that  the  water  surface  touches  as  calculated  using  the  cross-section  of  the 
nearshore  regions. 
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The  routine  also  calculates  the  areas  on  both  sides  of  a  vessel  when 
the  distance  to  the  center  of  the  vessel  is  entered. 

When  Option  1  is  selected,  the  following  description  appears  on  the 
screen: 


THIS  ROUTINE  ALLOWS  FOR  CALCULATION  OF  AREAS 
AND  TOPWIDTHS  OF  RIVER  SECTIONS  USING  STORED 
CROSS-SECTION  DATA.  IT  WILL  CALCULATE  THE  TOTAL 
AREA  AND  TOP  WIDTH  PLUS  THE  AREAS  ON  THE  RED  AND 
GREEN  SIDES  OF  THE  VESSEL. 

PUT  DATA  DISK  IN  DRIVE  'B'. 

HIT  SPACE  BAR  TO  CONTINUE. 


Insert  the  data  disk  containing  the  cross-section  data  and  press  the  space 
bar.  The  next  prompt  is  for  the  name  of  the  data  file.  For  this  descrip¬ 
tion,  a  sample  cross-section  data  file  called  EXAMPLE  was  entered  using 
Option  1  of  the  data  entry  menu.  After  the  data  file  name  is  entered  the 
parameters  at  the  beginning  of  the  file  are  printed  as  follows: 

INPUT  NAME  OF  DATA  FILE  B : EXAMPLE 

NAME  OF  SECTION  EXAMPLE 

DATE  OF  SOUNDING  1/1/85 

WATER  SURFACE  ELEVATION  AT  DATE  »  100 

NUMBER  OF  DATA  POINTS  =  25 

END  OF  DATA  FILE  B: EXAMPLE 

HIT  SPACE  BAR  TO  CONTINUE. 
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Figure  7  is  a  printout  obtained  from  Option  3  of  the  data  entry  menu  of  the 
sample  file. 

After  pressing  the  space  bar,  these  prompts  must  be  answered  in  the 
order  that  they  appear. 


WATER  SURFACE  ELEVATION  =  WS  =  ?  100 

ENTER  DISTANCE  TO  UPBOUND  VESSEL  FROM  GREEN  SIDE  in  feet  *  ?  9S0 

ENTER  DISTANCE  TO  DOWNBOUND  VESSEL  FROM  GREEN  SIDE  in  feet  *  ?  lOOO 


The  water  surface  elevation  that  must  be  entered  is  the  elevation  at  which 
the  user  wants  the  calculation  to  be  made.  In  this  case  the  water  surface 
at  the  time  that  the  sounding  was  made  was  used,  although  any  reasonable 
water  surface  can  be  used. 

The  distance  to  the  centers  of  upbound  and  downbound  vessels  allows 
for  areas  on  both  sides  of  the  vessels  to  be  calculated.  Depth  at  the 
center  of  the  vessel  is  just  an  average  depth  under  the  ship. 

When  all  of  the  prompted  parameters  have  been  entered  the  computer 
asks  the  user  to  wait  until  the  calculation  is  complete.  After  the 
computer  has  made  the  necessary  calculations  the  first  half  of  the  results 
appears  as: 


DATE  OF  SOUNDING  1/1/85 

WATER  SURFACE  ELEVATION  in  feet  *  100 

DATA  POINT  DISTANCE(ft)  ELEVATION ( ft ) 


1 

0.0 

102.0 

2 

25.0 

100.0 

3 

50.0 

98.0 

4 

100.0 

95.0 

5 

150.0 

97.0 

8 

200.0 

95.0 

7 

300.0 

90.0 

8 

400.0 

92.0 

9 

500.0 

88.0 

10 

600.0 

75.0 

11 

700.0 

66.0 

12 

800.0 

63.0 

13 

900.0 

68.0 

14 

1000.0 

66.0 

15 

1100.0 

67.0 

16 

1200.0 

70.0 

17 

1300.0 

76.0 

18 

1400.0 

80.0 

19 

1500.0 

82.0 

20 

1600.0 

87.0 

21 

1700.0 

90.0 

22 

1800.0 

92.0 

23 

1900.0 

95.0 

24 

1950.0 

97.0 

25 

2000.0 

101  .0 

Figure  7  Example  Sounding  Data 
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NAME  OF  SECTION 


EXAMPLE 


WATER  SURFACE  ELEVATION  in  feet  =  100.00 

DISTANCE  TO  UPBOUND  VESSEL  from  green  aide  in  feet  =  950 

DEPTH  AT  CENTER  OF  UPBOUND  VESSEL  in  feet  =  33 

DISTANCE  TO  DOWNBOUND  VESSEL  from  green  side  in  feet  =  1000 

DEPTH  AT  CENTER  OF  DOWNBOUND  VESSEL  in  feet  =  34 

TOTAL  AREA  OF  SECTION  in  aq .  feet  =  36156. 

HIT  SPACE  BAR  TO  CONTINUE. 


At  this  point  the  total  area  of  the  section  should  be  recorded  if  the  user 
cannot  obtain  a  hard  copy  through  a  later  prompt. 

Press  the  space  bar  and  the  second  half  of  the  results  is  displayed 
as: 


AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL  in  sq.  feet  *  16700. 

AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL  in  sq .  feet  »  19456. 

AREA  ON  GREEN  SIDE  OF  DOWNBOUND  VESSEL  in  aq.  feet  «  18350. 

AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL  in  sq.  feet  *  17806. 

WIDTH  OF  WATER  SURFACE  in  feet  -  1962.5 

DO  YOU  WANT  A  HARD  COPY  <Yes/No>? 
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©000000® 0000000000000000® 000® 00® 0000000 00® 00® 

NAME  OF  SECTION  EXAMPLE 

WATER  SURFACE  ELEVATION  in  feet  =  100.00 

®®®®®®®®®®@®©®0@®@®@@S@@S0@®@@®®®®®@®@®@@@@®@ 

DISTANCE  TO  UPBOUND  VESSEL  from  green  aide  in  feet  =  950 

DEPTH  AT  CENTER  OF  UPBOUND  VESSEL  in  feet  =  33 

DISTANCE  TO  DOWNBOUND  VESSEL  from  green  aide  in  feet  =  1000 

DEPTH  AT  CENTER  OF  DOWNBOUND  VESSEL  in  feet  =  34 

TOTAL  AREA  OF  SECTION  in  aq .  feet  =  36156. 

AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL  in  aq .  feet  =  16700. 

AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL  in  aq .  feet  =  19456. 

AREA  ON  GREEN  SIDE  OF  DOWNBOUND  VESSEL  in  aq .  feet  =  18350. 

AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL  in  aq.  feet  *  17806. 

WIDTH  OF  WATER  SURFACE  in  feet  *  1962.5 


Figure  8  Example  Cross-Section  Areas 
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Again  if  no  hard  copy  will  be  made,  the  results  should  be  recorded.  If  a 
printout  is  desired,  answer  the  hard  copy  prompt  with  "Yes"  and  Figure  8  is 
the  result.  A  "No"  or  the  end  of  printing  returns  the  user  to  the 
calculations  menu. 


Option  2:  Calculate  Drawdowns  Using  a  Single  Vessel  Speed  and  Give 
Relative  Damage 

The  program  was  written  primarily  for  the  outputs  provided  by  Options 
2  and  3.  They  are  the  routines  that  calculate  vessel-induced  drawdowns  and 
associate  a  relative  damage  to  them. 

Option  2  calculates  the  drawdowns  caused  by  a  vessel  passing  at  a 
given  speed  through  a  section  upbound,  downbound  or  in  either  direction. 
Drawdowns  are  calculated  for  each  side  of  the  vessel. 

If  Option  2  is  selected,  the  following  description  appears  on  the 
screen: 


THIS  ROUTINE  ALLOWS  FOR  CALCULATION  OF  DRAWDOWNS 
AND  DAMAGE  FOR  THE  PASSAGE  OF  A  VESSEL  UPBOUND, 
DOWNBOUND  OR  BOTH  DIRECTIONS  FOR  A  GIVEN  SPEED. 
IT  WILL  ALSO  GIVE  A  PRINTOUT  OF  THE  RESULTS 
IF  PROMPTED  BY  THE  USER. 


HIT  SPACE  BAR  TO  CONTINUE. 


After  pressing  the  space  bar,  the  user  is  prompted  to  select  the  vessel 
direction: 


CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS 
CALCULATE  DRAWDOWNS  FOR 

1  UPBOUND  VESSEL  ONLY 

2  DOWNBOUND  VESSEL  ONLY 

3  BOTH  UPBOUND  &  DOWNBOUND  VESSELS 

INPUT  OPTION  ?  3 


The  user  selects  one  of  the  three  options,  and  the  following  six 
questions  are  asked,  one  at  a  time: 


NAME  OF  SECTION  EXAMPLE 

AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL  in  aq .  feet  «  7  16700 
AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL  in  sq .  feet  »  7  19456 
AREA  ON  GREEN  SIDE  OF  DOWNBOUND  VESSEL  in  sq.  feet  -  ?  18350 
AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL  in  sq.  feet  «  7  17806 
WIDTH  OF  WATER  SURFACE  in  feet  «  7  1962.5 
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Notice  that  the  information  prompted  by  these  six  questions  can  be 
obtained  by  Option  1  of  the  calculations  menu.  For  purposes  of  this 
example,  the  results  of  the  example  for  Option  1,  calculation  of  area,  will 
be  used  for  the  prompted  parameters.  To  show  how  results  are  obtained  for 
both  upbound  and  downbound  vessels,  Option  3  for  direction  was  chosen.  If 
either  of  the  other  two  options  is  selected,  the  same  questions  are  asked, 
but  only  for  the  vessel  direction  desired. 

After  the  six  cross-section  parameters  have  been  entered,  the  follow¬ 
ing  text  and  two  prompts  appear  on  the  screen: 


THE  FOLLOWING  TWO  INPUT  PARAMETERS  ALLOW 
EXAMINATION  OF  THE  ICE  COVERED  CONDITION 
ON  THE  SYSTEM.  INPUT  PERCENTAGE  OF  AREA 
TAKEN  UP  BY  ICE  AS  A  DECIMEL  MULTIPLIER 
OF  THE  TOTAL  AREA  OF  THE  SECTION.  INPUT 
O  FOR  ICE  FREE  CONDITIONS. 

PERCENTAGE  ICE  on  green  side  (decimal  form)  =  ?  .052 
PERCENTAGE  ICE  on  red  aide  (decimal  form)  =  ?  .056 


To  determine  what  the  parameter  for  percentage  of  ice  is,  calculate 
the  submerged  area  of  ice  on  the  green  and  red  sides  of  the  vessel  and 
divide  that  value  by  the  area  of  water  that  would  be  present  in  the  section 
at  that  water  surface  with  no  ice  present.  This  is  the  percentage  of  ice 
in  decimal  form.  If  free  water  surface  conditions  are  present,  enter  zeros 
for  these  two  parameters. 

After  the  ice  condition  parameters  have  been  entered,  the  next  option 
menu  is  printed  on  the  screen. 
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INPUT  THE  NEARSHORE  CONFIGURATION  ON  THE  GREEN  SIDE 


CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS 

1  OPEN  BLUFF  OR  ESCARPMENT 

2  OPEN  SLOPING  BEACH 

3  SUBMERGED  WETLANDS 

4  MANMADE  PROTECTION 

INPUT  OPTION  ?  2 


> 


Select  the  number  of  the  conf iguration  that  best  fits  the  shoreline  area  on 
the  green  side.  A  description  of  these  four  nearshore  types  can  be  found 
in  the  main  report.  Next  select  the  soil  type  on  the  green  side  by  the 
menu : 


INPUT  THE  NEARSHORE  SOIL  TYPE  ON  THE  GREEN  SIDE 
CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS 

1  BOULDERS  AND/OR  COBBLES 

2  COARSE  TO  MEDIUM  SAND 

3  MEDIUM  SAND  TO  SILT 

4  CLAY 

INPUT  OPTION  ?  3 
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These  four  major  soil  types  are  also  described  in  the  main  report. 

After  this  parameter  has  been  selected,  the  same  two  menus  appear  for 
the  nearshore  area  on  the  red  side: 


INPUT  THE  NEARSHORE  CONFIGURATION  ON  THE  RED  SIDE 
CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS 

1  OPEN  BLUFF  OR  ESCARPMENT 

2  OPEN  SLOPING  BEACH 

3  SUBMERGED  WETLANDS 

4  MANMADE  PROTECTION 

INPUT  OPTION  ?  1 

INPUT  THE  NEARSHORE  SOIL  TYPE  ON  THE  RED  SIDE 
CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS 

1  BOULDERS  AND/OR  COBBLES 

2  COARSE  TO  MEDIUM  SAND 

3  MEDIUM  SAND  TO  SILT 

4  CLAY 


INPUT  OPTION  ?  4 


Select  the  parameters  for  the  red  side  in  the  same  manner  as  above. 

When  the  four  parameters  describing  the  nearshore  areas  on  both  sides 
of  the  section  have  been  entered,  the  user  is  prompted  to  answer  the  next 
eight  questions: 
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DISTANCE  TO  UPBOUND  VESSEL  from  green  aide  in  feet  =  ?  950 

DISTANCE  TO  DOWNBOUND  VESSEL  fro*  green  aide  in  feet  =  7  1000 

VESSEL  BEAM  in  feet  =  7  75 

VESSEL  DRAFT  in  feet  =  ?  25 

RIVER  VELOCITY  in  feet  per  aec.  -71 

UPBOUND  VESSEL  VELOCITY  in  feet  per  sec.  =  7  10 

DOWNBOUND  VESSEL  VELOCITY  in  feet  per  aec.  =  ?  10 

DEPTH  AT  CENTER  OF  CHANNEL  in  feet  =  7  33 


The  distances  to  the  vessels  are  measured  from  the  green  shoreline  to 
the  center  line  of  the  vessel  when  it  is  located  in  the  section.  The 
vessel  beam  is  the  width  of  the  vessel  at  its  widest  point.  This  value  can 
be  obtained  from  published  data. 

The  vessel  draft  is  the  average  depth  of  water  that  the  vessel  draws 
as  it  is  moving.  River  velocity  is  the  average  river  velocity  across  the 
section.  It  can  be  obtained  by  simply  dividing  the  flow  by  the  total 
cross-sectional  area  at  the  site.  The  vessel  velocity  is  the  speed  that 
would  be  computed  by  a  person  standing  on  shore  timing  the  ship  as  it 
passes  "bow  on"  to  "stern  on"  on  the  cross-section  line.  Finally  the  depth 
at  the  center  of  the  channel  is  the  average  depth  under  the  vessel. 

After  the  depth  has  been  entered,  the  user  is  requested  to  wait  while 
the  calculations  are  being  made.  When  the  calculations  are  complete,  the 
results  appear  on  the  screen: 


DRAWDOWN  OF  UPBOUND  VESSEL  on  the  green  side  <ft>  =  0.34 
DRAWDOWN  OF  UPBOUND  VESSEL  on  the  red  side  (ft)  =  0.27 

CRITICAL  DRAWDOWN  on  the  green  side  (ft)  =  5.53 

CRITICAL  DRAWDOWN  on  the  red  side  (ft)  *  6.48 
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DAMAGE  PROBABILITY  GREEN  IS  NONE  TO  LIGHT 
DAMAGE  PROBABILITY  RED  IS  NONE  TO  LIGHT 


HIT  SPACE  BAR  FOR  DOWNBOUND  RESULTS 


Press  the  space  bar  and  the  rest  of  the  results  are  printed: 


DRAWDOWN  OF  DOWNBOUND  VESSEL  on  t.ho  green  aide  eft)  =  0.18 
DRAWDOWN  OF  DOWNBOUND  VESSEL  on  the  red  side  eft)  =  0.18 

CRITICAL  DRAWDOWN  on  the  green  side  (ft)  =  7.33 

CRITICAL  DRAWDOWN  on  the  red  side  (ft)  =  7.34 

DAMAGE  PROBABILITY  GREEN  IS  NONE  TO  LIGHT 

DAMAGE  PROBABILITY  RED  IS  NONE  TO  LIGHT 


DO  YOU  WANT  A  HARD  COPY  (Yes/No)? 


Depending  on  the  selection  of  vessel  direction,  one  or  the  other  of 
these  sets  of  results  may  be  omitted.  The  calculated  values  are  given  as 
the  drawdowns  on  both  sides  of  the  vessel  using  the  parameters  entered. 

The  critical  drawdown  Is  the  drawdown  at  which  critical  conditions  would 
exist  for  the  given  combination  of  Inputs.  The  damage  probability  Is  the 
relative  damage  associated  with  that  vessel  passage. 

The  results  are  followed  by  the  prompt  "Do  you  want  a  hard  copy?"  If 
a  "Yes"  is  entered  the  user  is  prompted  to  put  the  printer  on  line  and 
Figure  9  is  the  result.  All  of  the  input  values  along  with  the  calculated 
results  are  on  the  printout.  If  a  single  vessel  direction  was  selected, 
only  the  appropriate  values  would  be  printed. 
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i 


Figure  9  Example  Drawdowns 
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A  "No"  response  to  the  hard  copy  prompt,  or  the  end  of  printing, 
results  in  the  next  user  option: 

DO  YOU  WANT  A  ANOTHER  COPY  (Yes/No)?  N 

DO  YOU  WANT  TO  TRY  OTHER  DATA  (Yea/No)? 


At  this  point,  any  of  the  parameters  can  be  changed,  and  the  drawdowns  re¬ 
calculated  using  these  new  values.  To  try  other  parameters  type  "Yes".  If 
"No"  is  entered,  the  user  is  returned  to  the  calculation  menu. 

When  it  is  desired  to  change  one  or  more  parameters  by  entering  "Yes", 
the  following  description  is  printed: 


THE  FOLLOWING  MENU  ALLOWS  FOR  CHANGES  IN  THE  DATA  JUST  RUN 

INPUT  OPTION  #  OF  PARAMETER  YOU  WANT  TO  CHANGE. 

THE  OPTIONS  ARE  BROKEN  INTO  2  LISTS 

OPTION  'O'  WILL  RECALCULATE  THE  DRAWDOWNS  WITH  THE  NUMBERS  CHANGED 

HIT  SPACE  BAR  TO  CONTINUE. 


There  are  two  menus  included  in  this  subroutine.  There  is  an  option 
in  each  to  move  back  and  forth  between  them.  A  "0"  input  will  recalculate 
the  drawdowns  with  the  changed  parameters. 

After  pressing  the  space  bar  at  the  end  of  the  subroutine  description, 
this  option  menu  comes  up  on  the  monitor: 


9 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


RECALCULATE  DRAWDOWNS  WITH  DATA  CHANGED 
AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL 
AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL 
AREA  ON  GREEN  SIDE  OF  DOWNBOUND  VESSEL 
AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL 
PERCENTAGE  ICE  ON  GREEN  SIDE 
PERCENTAGE  ICE  ON  RED  SIDE 
DISTANCE  TO  UPBOUND  VESSEL 
DISTANCE  TO  DOWNBOUND  VESSEL 
SECOND  LIST  OF  INPUT  DATA 

OPTION  #  ? 


If  it  is  desired  to  change  one  of  the  values  in  this  list,  type  the 
number  of  the  parameter  and  the  prompt  to  enter  the  new  value  is  printed  on 
the  screen.  If  the  parameter  to  be  changed  is  not  in  the  list,  enter  a  "9" 
and  the  second  list  will  be  printed  on  the  screen  as: 


O  RECALCULATE  DRAWDOWNS  WITH  DATA  CHANGED 

1  WIDTH  OF  WATER  SURFACE 

2  VESSEL  BEAM 

3  VESSEL  DRAFT 

4  RIVER  VELOCITY 

5  UPBOUND  VESSEL  VELOCITY 
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DOWNBOUND  VESSEL  VELOCITY 


6 

7 

8 


DEPTH  AT  CENTER  OF  CHANNEL 
FIRST  LIST  OF  INPUT  DATA 

OPTION  * 


Again  there  is  an  option,  "8",  to  return  to  the  first  menu.  A  "0" 
will  recalculate  with  changed  parameters.  If  one  of  the  change  parameter 
options  is  chosen  the  user  is  again  prompted  on  the  screen  to  enter  the  new 
value. 

To  give  an  example  of  changing  values  and  also  to  show  a  result  that 
could  appear  on  the  screen  during  calculation,  Option  7  of  the  second  list 
was  chosen.  The  prompt  on  the  screen  is: 


DEPTH  AT  CENTER  OF  CHANNEL  in  feet  =  ?  25.1 


The  depth  at  the  center  of  the  channel  is  entered  as  25.1  ft.  and  the 
screen  returns  to  the  first  list.  After  entering  a  "0"  the  computer  goes 
back  to  recalculate  the  drawdowns  with  this  one  parameter  changed. 

During  the  process  of  the  calculation,  the  following  comes  up  on  the 
monitor: 


THE  PARAMETERS  INPUT  FOR  THE  UPBOUND  VESSEL 
CREATE  A  DRAWDOWN  LARGE  ENOUGH 
TO  GROUND  THE  VESSEL.  THE  DRAWDOWN 
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ADDED  to  the  draft  is  greater  than 


THE  DEPTH  IN  THE  CENTER  OF  THE  CHANNEL. 

DO  YOU  WANT  TO  CHANGE  ANY  PARAMETERS  (Yes/No)  ? 


The  draft  of  the  vessel  is  25  ft.  With  a  depth  under  the  vessel  of 
25.1  ft.  the  drawdown  of  the  ship  can  only  get  to  0.1  ft.  before  it  hits 
the  bottom.  Therefore,  the  combination  of  values  input  is  not  possible. 

If  the  prompt  to  change  parameters  is  answered  "Yes",  the  user  is  taken 
back  to  the  change  parameters  menus.  A  "No"  returns  the  program  to  calcu¬ 
lations  if  a  downbound  vessel  direction  was  entered,  otherwise  the  results 
are  printed  on  the  screen  as  before.  The  printout  on  the  monitor  and  also 
on  the  hard  copy  if  desired  will  reflect  on  the  fact  that  the  vessel 
grounded  itself  before  it  got  to  the  calculated  drawdown. 

To  give  an  example  of  another  possibility  during  the  calculation,  the 
vessel  speed  changed  as  follows: 


UPBOUND  VESSEL  VELOCITY  in  feet  per  sec.  =  ?  17 


After  entering  a  "0"  to  recalculate,  the  screen  shows: 

THE  PARAMETERS  INPUT  FOR  THE  UPBOUND  VESSEL 
HAVE  FORCED  THE  FLOW  TO  GO  CRITICAL 
ON  THE  GREEN  SIDE. 

THE  STEADY  STATE  MODEL  DOES  NOT  APPLY 
BEYOND  THIS  POINT. 
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THE  PROBABILITY  FOR  DAMAGE  IS  SEVERE. 

CRITICAL  DRAWDOWN  on  the  green  side  (£t>  =  1.59 

DO  YOU  WANT  TO  CHANGE  ANY  PARAMETERS  (Yes/No)  ? 


When  the  calculation  is  attempted  using  an  upbound  vessel  velocity  of 
17  ft.  per  second,  the  flow  becomes  critical  in  the  section.  When  critical 
conditions  are  reached,  the  steady  state  equations  within  the  program  do 
not  apply.  Therefore,  the  calculation  cannot  go  any  further.  The  damage 
probability  at  this  point  has  already  become  severe  and  there  is  no  reason 
to  continue.  If  the  user  wants  to  change  parameters,  a  "Yes"  will  again 
return  to  the  change  menus.  A  "No"  will  continue  into  the  downbound  calcu¬ 
lation  or  the  results  will  be  printed  on  the  screen.  The  results  will 
reflect  the  fact  that  the  flow  became  critical  if  no  changes  are  made. 

The  above  example  is  intended  to  give  a  full  explanation  of  the  proce¬ 
dure  to  be  followed  to  calculate  the  drawdowns  and  relative  damages  for 
vessel  passages  through  a  section  at  a  single  speed.  If  it  is  desired  to 
iterate  vessel  speed  to  critical,  Option  3  can  be  used. 


Option  3:  Calculate  Drawdowns  Iterating  Vessel  Speed  and  Give 
Relative  Damage 

If  Option  3  is  selected,  the  computer  automatically  loads  the  subrou¬ 
tine  THREE. SUB  into  memory.  Before  selecting  3  the  disk  must  be  in  the 
drive.  After  the  program  is  loaded,  the  following  description  appears  on 
the  screen: 
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""HIS  ROUTINE  15  DESIGNED  “O  ITERATE  VF BOUND 
AND  DCWNBOUND  VESSEL  VELD  DITIES  AND  CALCULATE 
THE  CORRESPONDING  DRAWDOWN.  CALCULATIONS  WILL 
BE  TERMINATED  WHEN  CRITICAL  CONDITIONS  ARE 
REACHED  ON  ONE  SIDE  OF  THE  VESSEL  OR  THE  OTHER. 
BEGIN  VELOCITY  IS  THE  POINT  THAT  THE  USER  WANTS 
ITERATION  TO  START. 

HIT  SPACE  BAR  TO  CONTINUE. 


The  prompts  for  information  to  perform  the  calculations  in  this 
routine  are  the  same  as  those  for  Option  2  except  for  the  two  vessel  velo¬ 
city  questions.  Under  Option  3,  these  two  questions  are  worded: 


BEGIN  UPBOUND  VELOCITY  in  feet  per  sec.  *  ?  3 

BEGIN  DOWNBOUND  VELOCITY  in  feet  per  sec.  =  ?  3 


The  "begin  vessel  velocity"  is  the  speed  at  which  the  user  wants  the 
iteration  to  begin.  Jhe  computer  will  calculate  the  drawdown  for  this 
speed.  It  then  iterates  the  velocity  by  0.5  ft.  per  second  and  calculates 
that  drawdown  until  critical  conditions  are  reached.  At  this  point,  the 
computer  goes  back  to  the  last  value  for  speed  and  advances  by  0.05  from 
this  point  until  critical  conditions  are  reached  again. 
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When  the  calculations  for  the  desired  vessel  directions  have  been 
completed  the  results  appear  as: 

THE  CALCULATION  REACHED  CRITICAL  CONDITIONS 

ON  THE  GREEN  SIDE  OF  THE  UPBOUND  VESSEL  AT  15.45  ft/sec 

DAMAGE  PROBABILITY  GREEN  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  11.96  ft/sec 
MODERATE  from  11.96  ft/sec  to  13.53  ft/a ec 
SEVERE  above  13.53  ft/sec 
DAMAGE  PROBABILITY  RED  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  11.75  ft/sec 
MODERATE  from  11.75  ft/sec  to  14.08  ft/aec 
SEVERE  above  14.08  ft/sec 
HIT  SPACE  BAR  TO  CONTINUE. 

THE  CALCULATION  REACHED  CRITICAL  CONDITIONS 

ON  THE  RED  SIDE  OF  THE  DOWNBOUND  VESSEL  AT  18.05  ft/sec 

DAMAGE  PROBABILITY  GREEN  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  14.39  ft/aec 
MODERATE  from  14.39  ft/aec  to  16.92  ft/aec 
SEVERE  above  16.92  ft/aec 
DAMAGE  PROBABILITY  RED  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/aec  to  13.26  ft/sec 
MODERATE  from  13.26  ft/sec  to  15.66  ft/aec 
SEVERE  above  15.66  ft/aec 
HIT  SPACE  BAR  TO  CONTINUE. 
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This  screen  printout  gives  the  side  of  the  section  where  critical 
conditions  were  reached  first.  When  the  space  bar  is  pressed,  the  results 
of  vessel  velocity  and  drawdown  are  printed  on  the  monitor  15  lines  at  a 
time  along  with  ranges  of  relative  damage.  They  are  shown  by  vessel 
direction  as: 

THE  FOLLOWING  IS  A  LIST  OF  THE  RESULTS  FOR 
THE  VELOCITY  VS  DRAWDOWN  CALCULATIONS.  THE 
RESULTS  WILL  BE  GIVEN  15  LINES  AT  A  TIME 


HIT  SPACE  BAR  TO  CONTINUE. 


After  pressing  the  space  bar  the  screens  show  in  order: 


RESULTS  FOR  UPBOUND  VESSEL 


VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

<ft/B©C) 

(ft) 

<£t> 

3.00 

0.03 

0.03 

3.50 

0.04 

0.04 

4.00 

0.05 

0.04 

4.50 

0.07 

0.05 

5.00 

0.08 

0.07 

5.50 

0.09 

o.oa 

6.00 

0.11 

0.09 

6.50 

0.13 

0.11 

7.00 

0.15 

0.13 

7.50 

0.17 

0.14 

8.00 

0.20 

0.17 

8.50 

0.23 

0.19 

9.00 

0.26 

0.21 

9.50 

0.30 

0.24 

10.00 

0.34 

0.27 

HIT  SPACE  BAR  TO  CONTINUE. 
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.  RESU 

LT5  FOR  UPBOUND 

VEoiEL  <  cent 

VESSEL. 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

drawdown 

( f  t /sec  > 

(ft) 

(ft) 

10.50 

0.38 

0.31 

11.00 

0 .43 

0.35 

11.50 

0.49 

0.39 

12.00 

0.56 

0.44 

12.50 

0.65 

0.50 

13.00 

0.74 

0.57 

13.50 

0 . 86 

0.65 

14.00 

1 .01 

0.74 

14.50 

1 . 22 

0.85 

15.00 

1 . 55 

0.99 

15.05 

1.59 

1.01 

15.10 

1 . 64 

1 .02 

15.15 

1.70 

1 . 04 

15.20 

1.76 

1 .06 

15.25 

1 .83 

1 .08 

SPACE  BAR  TO 

CONTINUE. 

VESSEL  (cont'd) 

VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

( ft /sec ) 

(ft) 

(ft) 

15.30 

1 .91 

1.09 

15.35 

2.02 

1.11 

15.40 

2.19 

1 .13 

CRITICAL 

SPACE  BAR  TO 

CONTINUE. 

FOR  DOWNBOUND 

VESSEL  *•**«» 

VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

(ft/sec) 

(ft) 

(ft) 

3.00 

0.01 

0.01 

3.50 

0.01 

0.01 

4.00 

0.02 

0.02 

4.50 

0.02 

0.02 

5.00 

0.03 

0.03 

5.50 

0.04 

0.04 

6.00 

0.05 

0.05 
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c  iu 


6.50 

0.06 

0 . 06 

7.00 

0.07 

0.07 

7.50 

0.08 

0.09 

8.00 

0. 10 

0.10 

8.50 

0. 12 

0.12 

9.00 

0.13 

0.14 

9.50 

0.15 

0. 16 

10.00 

0.18 

0.18 

HIT  SPACE  BAR  TO  CONTINUE. 


.  RESULTS  FOR  DOWNBOUND  VESSEL  icont'di 


VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

<  ft/sec ) 

(ft) 

(ft) 

10.50 

0.20 

0.21 

11.00 

0.23 

0.24 

11.50 

0.26 

0.27 

12.00 

0 . 30 

0.31 

12.50 

0 . 34 

0.35 

13.00 

0.38 

0.39 

13.50 

0.43 

0.45 

14.00 

0.49 

0.51 

14.50 

0.55 

0.58 

15.00 

0.63 

0.66 

15.50 

0.72 

0.75 

16.00 

0.83 

0.87 

16.50 

0.97 

1.02 

17.00 

1  . 16 

1.22 

17.50 

1 .43 

1 .52 

SPACE  BAR  TO 

CONTINUE. 

FOR  DOWNBOUND 

VESSEL  (cont 

VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

(ft/sec) 

<£t> 

(ft  > 

18.00 

2.00 

2.31 

CRITICAL 

HIT  SPACE  BAR  TO  CONTINUE. 
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After  all  of  the  lists  of  results  have  been  run  through  by  depressing 
the  space  bar,  the  user  is  prompted: 


DO  YOU  WANT  A  HARD  COPY  (Yea, No)? 


If  a  "Yes"  is  entered,  the  user  is  prompted  to  put  the  printer  on 
line.  After  hitting  the  space  bar,  the  printout  is  generated  as  in  Figures 
10,  11  and  12.  Figure  10  contains  the  parameters  entered  along  with  the 
side  at  which  critical  conditions  occurred.  Note  that  the  soil  conditions 
have  been  changed  from  the  previous  example.  Figures  11  and  12  are  the 
vessel  velocities,  drawdowns  and  damage  ranges  for  the  calculation.  The 
three  figures  will  be  paged  automatically  as  they  are  here. 

A  "No"  for  the  hard  copy  prompt,  or  the  end  of  printing,  results  in 
the  prompt: 


DO  YOU  WANT  TO  PLOT  RESULTS  ON  THE  SCREEN  (Yes, No)? 


If  "Yes"  is  entered  here  the  results  are  plotted  on  the  monitor  as 
shown  in  Figures  13,  14,  15,  and  16.  To  move  through  the  four  plots,  press 
any  key. 
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NAME  OF~  SEC  I'  X  O  N  **  ■»  E  X  A  M  i  ^  E  2 
©00@@@Q@C9(S@@@@@Ql9QQ@@eQQ0@0OQQe@Q0Q@@ 


AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL  <sq.  ft)  =  16700 

AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL  (sq.  ft)  =  19456 

AREA  ON  GREEN  SIDE  OF  D0WNB0UND  VESSEL  ( sq .  ft)  =  18350 

AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL  < sq .  ft)  =  17806 

NEARSHORE  GREEN  -  OPEN  SLOPING  BEACH 

SOIL  TYPE  GREEN  -  COARSE  TO  MEDIUM  SAND 


NEARSHORE  RED  -  OPEN  BLUFF  OR  ESCARPMENT 

SOIL  TYPE  RED  -  MEDIUM  SAND  TO  SILT 


PERCENTAGE  ICE  on  green  side  (decimal  form)  =  .052 

PERCENTAGE  ICE  on  red  side  (decimal  form)  =  .056 

WIDTH  OF  WATER  SURFACE  (ft)  =  1962.5 

DISTANCE  TO  UPBOUND  VESSEL  from  green  aide  (ft)  =  950 

DISTANCE  TO  DOWNBOUND  VESSEL  from  green  side  (ft)  =  1000 

VESSEL  BEAM  (ft)  =  75 

VESSEL  DRAFT  (ft)  =  25 

RIVER  VELOCITY  (ft  per  sec.)  =  1 

BEGIN  UPBOUND  VESSEL  VELOCITY  (ft  per  sec.)  =  3 

BEGIN  DOWNBOUND  VESSEL  VELOCITY  (ft  per  sec.)  =  3 

DEPTH  AT  CENTER  OF  CHANNEL  (ft)  =  33 


THE  CALCULATION  REACHED  CRITICAL  CONDITIONS 

ON  THE  GREEN  SIDE  OF  THE  UPBOUND  VESSEL  AT  15.45  ft/sec 


DAMAGE  PROBABILITY  GREEN  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  11.96  ft/sec 
MODERATE  from  11.96  ft/sec  to  13.53  ft/sec 
SEVERE  above  13.53  ft/sec 

DAMAGE  PROBABILITY  RED  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  11.75  ft/sec 
MODERATE  from  11.75  ft/sec  to  14.08  ft/sec 
SEVERE  above  14.08  ft/sec 

THE  CALCULATION  REACHED  CRITICAL  CONDITIONS 

ON  THE  RED  SIDE  OF  THE  DOWNBOUND  VESSEL  AT  18.05  ft /sec 


DAMAGE  PROBABILITY  GREEN  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  14.39  ft/sec 
MODERATE  from  14.39  ft/sec  to  16.92  ft/sec 
SEVERE  above  16.92  ft/sec 

DAMAGE  PROBABILITY  RED  SIDE  IS 

NONE  TO  LIGHT  FROM  0  ft/sec  to  13.26  ft/sec 
MODERATE  from  13.26  ft/aec  to  15.66  ft/sec 
SEVERE  above  15.66  ft/sec 

Figure  10  Example  2  Drawdown  and  Damage 
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©  (3  ©  ©  ©  ©  C3  (t3  ©  ©  ©  ©  (3  ©  (3(9@Q  @@@  ©  ©  ©  ©  ©  ©  ©  03  ©  (3  03  ©  ©  03  © 
RESULT'S  F'OR  UNBOUND  VESSEL 
©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©©© 


VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

C  ft/ sec ) 

(ft) 

(ft) 

3.00 

0.03 

0.03 

3.50 

0.04 

0.04 

4.00 

0.05 

0.04 

4.50 

0.07 

0.05 

5.00 

0.08 

0.07 

5.50 

0.09 

0.08 

6.00 

0.11 

0.09 

6.50 

0.13 

0.11 

7.00 

0.15 

0.13 

7.50 

0.17 

0. 14 

8.00 

0.20 

0.17 

8.50 

0.23 

0.19 

9.00 

0.26 

0.21 

9.50 

0.30 

0.24 

10.00 

0.34 

0.27 

10.50 

0.38 

0.31 

11.00 

0.43 

0.35 

11.50 

0.49 

0.39 

12.00 

0.56 

0.44 

12.50 

0.65 

0.50 

13.00 

0.74 

0.57 

13.50 

0.86 

0.65 

14.00 

1.01 

0.74 

14.50 

1.22 

0.85 

15.00 

1.55 

0.99 

15.05 

1.59 

1.01 

15.10 

1.64 

1.02 

15.15 

1.70 

1.04 

15.20 

1.76 

1.06 

15.25 

1.83 

1.08 

15.30 

1.91 

1.09 

15.35 

2.02 

1.11 

15.40 

2.19 

1.13 

CRITICAL 


Figure  11  Example  2  Velocity  Iteration,  Upbound 
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RESULTS  EOF*  DOWNBOUND  VESSEL 
S0<3©O©QQ0©©C90SQ©(3QQ(30SQQ©(3S(3@(3(3Q(3<3(3(U 


VESSEL 

GREEN  SIDE 

RED  SIDE 

VELOCITY 

DRAWDOWN 

DRAWDOWN 

( f  t /sec ) 

(ft) 

(ft) 

3.00 

0.01 

0.01 

3.50 

0.01 

0.01 

4.00 

0.02 

0.02 

4.50 

0.02 

0.02 

5.00 

0.03 

0.03 

5.50 

0.04 

0.04 

6.00 

0.05 

0.05 

6.50 

0.06 

0.06 

7.00 

0.07 

0.07 

7.50 

0.08 

0.09 

8.00 

0.10 

0.10 

8.50 

0.12 

0.12 

9.00 

0.13 

0.14 

9.50 

0.15 

0.16 

10.00 

0.18 

0.18 

10.50 

0.20 

0.21 

11.00 

0.23 

0.24 

11.50 

0.26 

0.27 

12.00 

0.30 

0.31 

12.50 

0.34 

0.35 

13.00 

0.38 

0.39 

13.50 

0.43 

0.45 

14.00 

0.49 

0  .’51 

14.50 

0.55 

0.58 

15.00 

0.63 

0.66 

15.50 

0.72 

0.75 

16.00 

0.83 

0.87 

16.50 

0.97 

1.02 

17.00 

1.16 

1  .22 

17.50 

1.43 

1.52 

18.00 

2.00 

2.31 

CRITICAL 


Figure  12  Velocity  Iteration,  Downbound 
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Figure  13  Screen  Graphics  for  Green  Side-Upbound  Vessel 
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Figure  14  Screen  Graphics  for  Red  Side-Upbound  Vessel 
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Figure  15  Screen  Graphics  for  Green  Side-Downbound  Vessel 
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Figure  16  Screen  Graphics  for  Red  Side-Downbound  Vessel 
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CD  I 


A  "No"  for  the  "plot  on  screen"  question,  or  the  end  of  the  plots, 
results  in  the  screen  prompt: 


DO  YOU  WANT  TO  PLOT  RESULTS  ON  THE  HP  PLOTTER  (Yes, No) ? 


If  it  is  desired  to  plot  the  results  on  the  HP  plotter,  a  "Yes"  will  bring 
the  following  menu  onto  the  screen: 


CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS 
DRAW  GRAPH  OF 

1  DRAWDOWNS  ONLY 

2  DAMAGE  PROBABILITY  ONLY 

3  BOTH  DRAWDOWNS  DAMAGE  PROBABILITY 

INPUT  OPTION  ? 
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Choose  one  of  the  plotting  options  and  the  next  menu  is: 

OF  THE  FOLLOWING  OPTIONS 
OF 

GREEN  SIDE  ONLY 
RED  SIDE  ONLY 
BOTH  SIDES  ON  SAME  GRAPH 

INPUT  OPTION  7 


CHOOSE  ONE 
DRAW  GRAPH 
1 
2 
3 


Pick  the  option  for  the  side  or  sides  desired  and  the  computer  prompts 
the  user  to: 


PUT  PLOTTER  ON  LINE  -  REPLACE  PAPER 
INSERT  THICK  BLACK  PEN  FOR  PEN  #1 
INSERT  FINE  BLACK  PEN  FOR  PEN  #2 


HIT  SPACE  BAR  TO  CONTINUE. 


Load  the  paper  and  insert  the  pens  and  the  plotting  will  begin.  In 
the  middle  of  the  plot  the  plotter  stops  and  the  screen  prompts  the  user: 
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WHEN  PLOTTER  PAUSES 


INSERT  GREEN  PEN  FOR  PEN  #1 
INSERT  RED  PEN  FOR  PEN  #2 

HIT  SPACE  BAR  TO  CONTINUE. 

Be  sure  that  plotting  has  stopped  before  replacing  the  pens.  After 
pressing  the  space  bar,  the  plot  is  completed.  The  next  prompt  is: 


DO  YOU  WANT  TO  DRAW  MORE  GRAPHS  t Yes, No)? 


If  graphs  for  both  upbound  and  downbound  vessels  were  required,  this 
prompt  would  appear  after  two  graphs  had  been  produced. 

If  it  is  desired  to  make  another  plot,  the  user  is  returned  to  the 
first  plotting  menu  and  the  same  procedure  is  followed. 

Figures  17  through  28  show  all  possible  combinations  of  graphs 
generated  by  the  plotting  options  for  both  upbound  and  downbound  vessels. 

A  "No"  at  this  point  or  "No"  for  the  first  HP  plotter  prompt  results 
in  the  following  prompt: 


DO  YOU  WANT  TO  CHANGE  ANY  PARAMETERS  AND  RERUN  (Y«s,No)7 


At  this  point,  the  user  is  taken  into  the  same  routine  for  changing  para¬ 
meters  as  in  Option  2  except  for  the  vessel  velocity  questions.  Parameters 
are  changed  in  the  same  fashion. 
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♦♦DRAWDOWN  vs  VESSEL  SPEED** 
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Figure  17  Drawdown  for  Green  Side  -  Upbound  Vessel 
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Figure  18  Drawdown  for  Green  Side  -  Downbound  Vessel 
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Figure  19  Drawdown  for  Red  Side  -  Upbound  Vessel 
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Figure  20  Drawdown  for  Red  Side  -  Downbound  Vessels 
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Figure  26  Drawdown  and  Damage  for  Green  Side  -  Downbound  Vessel 
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The  calculations  portion  of  this  routine  can  take  several  minutes. 

The  user  is  requested  to  wait  as  calculations  are  in  progress.  The  vessel 
can  also  become  grounded  as  in  Option  2  and  the  screen  printout  is  the 
same. 


Option  4:  Fit  Light  Meter  Data  to  Line  and  Give  Results 

This  routine  will  calculate  the  light  extinction  coefficients  for  data 
stored  using  Option  6  of  the  data  entry  menu.  The  results  can  then  be 
plotted  on  the  computer  screen  and/or  on  the  HP  plotter. 

The  first  text  to  appear  on  the  screen  is: 


THIS  ROUTINE  ALLOWS  FOR  CALCULATION  G~  THE 
COEFFICIENT  OF  EXTINCTION  OF  LIGHT  WITH 
DEPTH  FOR  STORED  LIGHT  METER  DATA.  IT  WILL 
ALSO  PLOT  THE  RESULTS  ON  THE  SCREEN  OR  ON 
THE  PLOTTER  IF  PROMPTED. 

PUT  DATA  DISK  IN  DRIVE  'B'. 

HIT  SPACE  BAR  TO  CONTINUE. 


Put  the  data  disk  containing  the  light  meter  data  Into  the  drive  and  press 
the  space  bar. 

The  next  prompt  Is  for  the  file  name  of  the  light  meter  data  file. 

The  file  used  for  this  example  is  the  same  as  the  one  entered  during  the 
description  of  Option  6  of  the  data  entry  menu  in  an  earlier  section.  The 
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following  text  shows  what  appears  on  the  screen  after  the  file  name  is 
entered. 


FILE  NAME?  B : LIGHT 


TEST 

DISTANCE  =  500 

OVERHEAD  READING  = 

ICE  THICKNESS  = 

READING  UNDER  SURFACE  = 

1  .  2  1700 

2  .  5  1400 

3  .  10  1000 

4  .  15  700 

5  .  20  400 

END  OF  DATA  FILE  B : LIGHT 
ARE  DATA  CORRECT  (Y/N>? 


2000 
0  in. 
1800 


The  prompt  at  the  bottom,  "are  data  correct?",  is  intended  to  allow 
the  user  to  change  data  files  if  the  one  entered  was  not  correct.  If  a 
"No"  is  entered  the  computer  prompt  is  for  another  file  name  and  the  new 
file  is  displayed.  If  the  data  is  correct  and  a  "Yes"  is  entered  the  user 
is  prompted  to  wait.. while  the  calculation  is  performed.  The  result  of  the 
calculation  as  printed  on  the  screen  is  as  follows: 


Ke  =  0.082  */-  0.008 

NUMBER  OF  DATA  =  4 
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END  OF  DATA  ANALYSIS.  HIT  ANY  KEY  CONTINUE 


"Ke"  is  the  slope  of  the  best  fit  line  through  the  light  data  by 
linear  regression.  An  explanation  of  its  significance  can  be  found  in  the 
main  report.  If  no  plots  are  to  be  made,  this  value  should  be  recorded  at 
this  time,  from  the  screen.' 

After  pressing  any  key  the  prompt  is: 


DO  YOU  WANT  RESULTS  PLOTTED  ON  THE  SCREEN  <Y/N)  ?  Y 


If  a  "Yes"  is  entered  a  representation  similar  to  Figure  29  will  show  up  on 
the  screen.  To  clear  the  plot,  press  any  key  on  the  keyboard  and  the 
display  wi 1 1  read: 


DO  YOU  WANT  RESULTS  PLOTTED  ON  THE  HP  PLOTTER  (Y/N)  t 


If  a  "No"  was  entered  for  the  computer  screen  plot  prompt  the  question 
above  would  appear  without  the  screen  plot.  When  a  plot  is  not  desired 
from  the  HP  plotter,  type  "No"  at  this  time  and  the  screen  returns  'o  the 
calculation  menu. 

If  "Yes"  is  entered  for  a  plot  the  next  text  is  printed: 
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Figure  29  Screen  Graphics  of  Light  Extinction  Analysis 
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PUT  PLOTTER  ON  LINE 

HIT  SPACE  BAR  TO  CONTINUE. 


At  this  point,  put  the  desired  pen  into  the  plotter,  insert  the  8  1/2  x  11 
paper  and  press  the  space  bar.  Figure  30  is  the  result. 

The  last  prompt  is: 


DO  YOU  WANT  ANOTHER  PLOT  <Y/N>  ? 


If  a  "Yes"  is  entered  the  user  is  prompted  to  put  the  printer  on  line  and 
another  plot  like  Figure  30  results.  A  "No"  returns  the  user  to  the 
calculations  menu. 

The  previous  sections  are  intended  to  familiarize  the  user  with  the 
various  calculations  subroutines.  As  in  Option  1,  MAIN  PROGRAM  MENU,  the 
user  can  try  the  above  examples  to  get  an  understanding  of  the  program's 
use. 

An  explanation  of  the  theoretical  and  empirical  basis  of  this  program 
and  examples  of  its  application  can  be  found  in  the  report  accompanying 
this  manual. 

Listings  of  the  various  routines  are  found  at  the  end  of  this  manual. 
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**LIGHT  METER  RESULTS** 


Figure  30  Light  Extinction  Analysis  from  Plotter 


PROGRAM  LISTING 


The  program  is  composed  of  five  subroutines.  They  are  BEGIN,  BEGIN. TWO, 
TWO. SUB,  ONE. SUB,  and  THREE. SUB.  Flow  diagrams  are  shown  below  and  the 
subroutines  are  listed  in  the  following  sections. 
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BEGIN 
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Figure  31  FLOW  DIAGRAM  OF  STARTUP  AND  THE  MAIN  PROGRAM  MENU 


DIAGRAM  OF  TWO . SUB 


FLOW  DIAGRAM  OF  ONE . SUB 


BEGIN 


100  KEY  OFF 
110  9DEEN  1 
120  CDlDR  1,3 

130  Q.S: PRINT  :PP1NT  .-PRINT  jPRJNTjPRINT  (PRINT  : PRIMT iPRIMT  (PRINT 

HO  PRIMT  ‘  VESSEL  INPACTS  IN  ft” (PRINT  (PRINT  (PRINT 

150  PRINT  ’  CONFINED  WATERWAY* : PRINT  (PRINT  (PRIMT 

160  FOR  1*1  TO  5000:(CXT  I 

170  SCREEN  0  s  WIDTH  80 

180  CIS  (PRINT  (PRINT  :PRINT:PRINT  (PRINT 

190  PRINT  *  Developed  by  Michigan  Technological  University" (PRINT 

200  PRINT  *  for* -.PRINT 

210  PRINT  *  U.S.  Arey  Corps  of  Engineers*  (PRINT  (PRINT 

220  PRINT  *  Under  * (PRINT 

230  PRINT  *  Contract  No.  DACA89-85-K-0001"  (PRINT 

240  PRINT  *  October  1985* (PRINT  (PRINT 

250  PRINT  (PRINT 

260  PRINT  *  Note:  The  results  of  this  prograe  should  not  be  used* 

270  PRINT  '  without  an  understanding  of  its  companion  report* 

280  PRINT  (PRINT 

290  PRINT  *  HIT  ANY  KEY  TO  CONTINUE* 

300  IF  IM1EY*  *  **  THEN  GOTO  300 
310  LOAD'BESIN.TWD*,  R 
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20  LPRINT :  LPRINT  :LPRINT ! LPRINT jLPRINT:  LPRINT 
40  LPRINT  CHRI(27)jCHR*(67)|CHR$(66) 

60  LPRINT  CHM(27)jCHW(7«>tCHR«12) 

80  LLIST 

J00  as  s  PRINT  :  PRINT  j  PRINT 

110  PRINT  ■  MIN  PR06RAM  OPTIONS"  I  PRINT 

120  PRINT  *  WWWWWIHHHHHWHHWHWWWHHWt*  I  PRINT  I  P 

RINT 

130  PRINT  "  0  END  PROGRAM  EXECUTION  -  RETURN  TO  DOS"  I  PRINT  i  PR 

INT 

140  PRINT  "  1  INPUT  AND  STORE  FIELD  DATA" 

>50  PRINT  "  SOTO  TO  PRINTER  AND/OR  PLOTTER  "  t  PRINT  s  PRINT 

160  PRINT  "  2  PERFORM  CALCULATION"  :  PRINT  :  PRINT  >  PRINT 

170  1WUT  "  INPUT  OPTION"  jOPT 

180  If  OPT  *  0  T>£N  SOTO  220 

190  IF  (0PT<1)  OR  (0PT)2)  T>CN  60T0  100 

200  CM  OPT  GOTO  230,  240 

210  60TD  100 

220  SYSTEM 

230  LOAD" TWO. SUB", R 

240  LOAD "Oft. SUB", R 


TWO. SUB 


I 

100  KEY  OFF 

110  DIM  Tl  (20),  TUR87<20),  T2(50),T3(50) 

120  DIH  X (50),Y(50),  YP(50),R(50),NT(20),YPR(50),XPR(50) 

130  DIN  XD (50) , YD(50), YPDI50) , RD (50) 

140  DIN  XC(200), YC(200), XX (200),  YY(200), 1(200), J(200),YN(200) 

150  DIN  £ (200), ft (200), TC (200), DOC (200), Z (200) 

160  aS  :  PRINT  :  PRINT  :  PRINT 

170  PRINT  *  OPTIONS’ 

1 80  PRIIC  ’  HlWHHHHWHmHWHHHHHH  1  •  PRINT 

190  PRINT  *  0  RETURN  TO  NfilN  PROGRAM  NENU"  :  PRINT 

200  PRINT  *  1  INPUT  CROSS-SECTION  DftTfl*  s  PRINT 

210  PRINT  ■  2  CHANGE  EXISTING  CROSS-SECT  ION  DftTft  FILE’  :  PRINT 

220  PRINT  ’  3  PRINT  CROSS-SECTION  DftTft’  i  PRINT 

£30  PRINT  ’  4  INPUT  FIELD  DRAWDOWN  DftTft*  i  PRINT 

240  PRINT  ’  5  PRINT  FIELD  DRAWDOWN  DftTft*  .•  PRINT 

250  PRINT  *  6  INPUT  LIGHT  METER  Dfllfl"  I  PRINT 

260  PRINT  *  7  PRINT  LIGHT  METER  DATA*  :  PRINT 

270  PRINT  *  8  PRINT  TURBIDITY  DATA*  s  PRINT 

280  PRINT  *  9  PRINT  ICE  THICKNESS  DftTft*  I  PRINT  i  PRINT 

290  INPUT  *  INPUT  OPTION  *;OPT 

300  IF  QPT=0  THEN  GOTO  330 

310  IF  (OPT  (1)  OR  (OPT) 9)  T)£N  GOTO  160 

320  »  OPT  GOTO  2830,  4020,  4810,  5270,  6400,  350,  730,  1830,  2400 
330  iDflC'BEGJN.  TWO*,R 
340  REM 

350  REM  INPUT  DftTft 
360  REM 

370  aS  :  PRINT  i  PRINT 

380  PRINT  *  THIS  ROUTDE  ALLOWS  FOR  INPUT  OF  LIWT*  iPRINT 

390  PRINT  *  METER  DATA.  AFTER  ALL  VALUES  HAVE  BEEN*  iPRINT 

400  PRINT  *  INPUT  THEY  WIU.  BE  STORED  ON  THE  DftTft  DISK.*  iPRINT 

410  PRINT  *  INPUT  DATA  AS  DEPTH, REM7IN6’ iPRINT 

420  PRINT  *  FOR  EflOl  POINT.*  iPRINT  iPRINT 

430  PRINT  'PUT  DATA  DISK  IN  DRIVE  S'  l  PRINT 

440  PRINT  ‘HIT  ANY  KEY  TO  CONTINUE* 

450  IF  IMXEYt  ■  **  T)£N  GOTO  450 
460  aS:  PRINT  iPRINT  iPRINT 
470  INPUT  *  FILENAME?  Bi*,» 

480  Bt  »  *Bi*  +  Bt 

490  OPEN  Bt  FOR  OUTPUT  PS  l 

500  PRINT  : INPUT  'SITE  NftiC  *;HEADt 

510  PRINT  #1,  HEAD* 

520  PRINT  : INPUT  *RD0  LOCATION  Wist  off  green  side?)"iH£AD2t 
530  PRINT  »l,  f€AD2* 

540  PRINT  : INPUT  ’OVERBAD  READING  *jOHR 
550  PRINT  «1,  OHR 

360  PRINT  tlf&UT  ‘ICE  THICKNESS  in.  (0  for  ice  free  conditions)  *jITH 
m  570  PRINT  *1,  ITH 
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580  MINT  : INPUT  “READING  JUST  UNDER  SURFACE  OR  ICE  SHEET  "{RUS 
590  PRINT  *1,  RUS 
600  1=0 

610  CLS: PRINT  -PRINT 

680  PRINT  ;  PRINT  "ENTER  DATA  POINT  -  DEPTH  of  reading  ft,*TER  READING* 
630  PRINT  “INPUT  -9999,0  TO  FINISH  DATA  INPUT* 

640  PRINT  “DATA  PAIR  NO. *;I+1  ;“=* .‘INPUT  Id), Y(I) 

650  IF  X  < I ) =-9999  THEN  SOTO  690 
660  PRINT  II,  X(1);Y(I) 

670  1=1+1 
680  GOTO  640 
690  CLOSE  #1 
700  M)=:-l 
710  GOTO  160 
720  REN 

730  REN  PRINT  DATA 
740  REN 

750  CLS  :  PRINT  :  PRINT 

760  PRINT  "PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  HEAD"  :  PRINT 
770  PRINT  "AT  THE  TOP  OF  T>€  PAGE'  :  PRINTsPRINT 
780  PRINT  "PUT  DATA  DISK  IN  DRIVE  B“  :  PRINT :PRIMT 
790  PRINT  “HIT  ANY  KEY  TO  CONTINUE* 

800  IF  INKEY*  =  **  THEN  GOTO  800 
810  aS  :  PRINT  :  PRINT 
820  INPUT  *  FILENAME?  8s“,BI 
830  B*  =  "B:“  +  B* 

840  OPEN  B*  FOR  INPUT  AS  1 
850  INPUT  II,  HEAD* 

860  PRINT  i  PRINT  HEAD* 

870  INPUT  II,  HEAD2* 

880  PRINT  "DISTANCE  ■  ", HEADS* 

890  INPUT  II,  OHR 

900  PRINT  “OVERHEAD  HEADING  «  ",OHR 
910  INPUT  II,  ITH 

920  PRINT  “ICE  THICKNESS  *  “,ITH  j'in.' 

930  INPUT  II,  RUS 

940  PRINT  “READING  UM)ER  SURFACE  *  ",RUS 
950  1=0 

960  INPUT  II, Id), YU) 

970  PRINT  Mi*.  *jX(I)|*  “jY(I) 

980  IF  EOFd)  GOTO  1010 
990  I»U1 
1000  GOTO  960 

1010  PRINT  i  PRINT  *  END  OF  DATA  FILE  *;B*  i  PRINT 
1020  ND=I  :  aOSE  *1 

1030  PRINT  : PRINT  “HIT  ANY  KEY  TO  CONTINUE" 

1040  IF  INKEY*  «  ■*  THEN  GOTO  1040 

1050  aS:PRINT  :PRINT  :PRINT 

1060  PRINT  :  INPUT  ‘DATE  OF  READINGS  *;)£AD5* 

1070  INPUT  “TINE  OF  READINGS  *;t£AD6t 

1080  PRINT  :  INPUT  “SKY  HAS  (CLEAR/CLOUDY) *;)€»3* 

1090  INPUT  “ICE  CONDITION  (NO  ICE/NO  SNOH/SNOUCOVERED)  *}>€AD4« 

1100  IF  HEAD4*=*SNDHC0VEHED“  GOTO  1120 
1110  GOTO  1140 
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11,20  INPUT  ‘PERCENTAGE  SNOW  ON  ICE  ";PSI 

1130  INPUT  ‘DEPTH  OF  SNOW  ON  ICE  <in)‘jDSI 

1140  INPUT  “TOTAL  DEPTH  AT  LOCATION  (ft)  ‘jHEAD7* 

1150  INPUT  "WERE  TURBIDITY  SAMPLES  TAKEN  <Y/N)‘jC$ 

1160  IF  L£FT«(C*,1)  =  "Y*  OR  L£FTt(C»,l)  *  ‘y*  THEN  SOTO  1180 
1170  GOTO  1260 
1100  J=1 

1190  PRINT  :  INPUT  ‘INPUT  DEPTH  OF  SAMPLE (ft), TURBIDITY (JTU)* jZD(J),TURB(J) 

1200  INPUT  "NORE  SAMPLES  (Y/N)  ‘;A» 

1210  IF  LEFT«(A*,1)  =  "Y“  OR  L£FT*(ft*, 1)  *  y  THEN  SOTO  1230 

1220  60T0  1250 

1230  J=J+1 

1240  GOTO  1190 

1250  NZ-J 

1260  CIS  :  PRINT  :  PRINT 

1270  LPRINT  :  lPRINT  :  LPRINT  !  LPRINT  j  LPRINT 

1200  LPRINT  CHR4(27)  ;CHRt(88)  ;CHR$(1)  ;CHR$(27);CHRf  (07)  ;(MRt(i); 

1290  lprint  ■  :  lprint 

1300  LPRINT  *  LIGHT  METER  READIN6S  *  :  LPRINT 

1310  lprint  ■  :  lprint 

1320  LPRINT  CHR«(27);CHR$(07) iCHR$(0) 

1330  LPRiNi 

1340  LPRINT  ‘  SITE  NAME  “,HEAD< 

1350  LPRINT  “  READING  LOCATION  (dist.  fro*  green  side  ft)  *,HEAD2*  :  LPRINT 

1360  LPRINT  ‘  DATE  ",HEfi05t 

1370  LPRINT  ‘  TIME  ■, HEADS* 

1300  LPRINT  *  SKY  WAS  ",HEAD3t 

1390  IF  HEAD4$=“N0  ICE‘  GOTO  1460 
1400  LPRINT  •  ICE  CONDITION  ",HEAD4t 
1410  IF  HEAD44="SNOWCOVERED‘  GOTO  1430 
1420  GOTO  1450 

1430  LPRINT  “  PERCENTAGE  SNOW  ON  ICE  *,PSI 

1440  LPRIHT  ‘  DEPTH  OF  SNOW  ON  ICE  (in)  ‘,DSI 

1450  LPRINT  ‘  ICE  THICKNESS  (in)  \ITH 

1460  LPRINT  *  TOTAL  DEPTH  AT  LOCATION  (ft)  *,  HEAD7R  j  LPRINT 

1470  LPRINT  ‘  QVERttAD  LIGHT  READING  ",0»* 

1400  IF  HEAD4$="N0  ICE*  GOTO  1510 

1490  LPRINT  •  LIGHT  READING  JUST  UNDER  ICE  “,RUB 

1500  GOTO  1520 

1510  LPRINT  •  LIGHT  READING  JUST  UNDER  WATER  SURFACE  ".RUG 
1520  J*1 

1530  IF  LEFT«C*,1)  »  *Y‘  OR  LEFTKC*,!)  -  y  MN  GOTO  1620 
1540  LPRINT 

1550  LPRINT  ‘  DEPTH  OF  LIGHT  NETER  * 

1560  LPRINT  ‘  ***  READING  »«  §«  READING  ***  *  «  LPRINT 

1570  FOR  JO  TO  W 

1580  LPRINT  USING  ‘  «.»  ’jX(I)j 

1590  LPRINT  USING  ‘  Mff.M'jYd) 

1600  NEXT  I 
1610  GOTO  160 
1620  LPRINT 

1630  LPRINT  *  DEPTH  OF  LIGHT  It  TER  TURBIDITY  * 

1640  LPRINT  ‘  ***  READING) ft)  w  m  READING  ***  w  (JTU)  «*  ’  i  LPRINT 

1650  FOR  1*0  TO  )C 
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1660  IF  X  (1X2D(J)  BOTO  1760 

1670  IF  X(1)«ZD(J>  6070  1730 

1660  !F  J=NZ^1  GOTO  1780 

1690  LPRINT  USING  ■  H.«  *}ZD(J>$ 

1700  lPRINT  USING  "  «.•#  ^TURBIJ) 

1710  J*J+1 
1720  GOTO  1660 

1730  LPRINT  USING  *  H  I  *;XCI)  j 

1740  LPRINT  USING  *  Htt.H  *;Y(I) j 

1750  lPRINT  USING  "  M.M  ";TURB(J> 

1760  J=J+1 
1770  SOTO  1800 

1790  LPRINT  USING  "  H.l  ”;X(I>; 

1790  LPRINT  USING  *  #!##.»#  ";Y<I) 

1800  NOT  I 
1610  SOTO  160 
1820  REN 

1330  REN  PRINTOUT  FOR  TURBIDITIES 
1640  REN 

1850  CLS  :  PRINT  s  PRINT  i  PRINT 

1060  PRINT  *  PUT  PRINTER  ON  LUC  -  PLACE  PRINTER  HEAD'  I  PRINT 
1870  PRINT  ‘  AT  THE  TOP  OF  THE  PAGE"  s  PRINTsPRINT 
1860  PRINT  '  HIT  SPACE  BAR  TO  CONTINUE. 1 

1890  &MUKEY*:  IF  WO  *'  TIEN  GOTO  1890 
1900  K*1 

1910  CLS  :  PRINT  :  PRINT  :  PRINT 
1920  PRINT  s  INPUT  "SITE  NAHE  "jTURB* 

1930  PRINT  J  INPUT  "DATE  OF  READINGS  "jTURBS* 

1940  PRINT  :  INPUT  "NUMBER  OF  SAMPLING  LOCATIOMS"jJT 
1950  >1 

1960  CIS  :  PRINT  »  PRINT  i  PRINT 

1970  PRINT  }  PRINT  "DISTANCE  TO  LOCATION  gram  fide  in  feet)"  t  INPUT 

THJ) 

1980  PRINT  .•  PRINT  "TOTAL  DEPTH  AT  LOCATION  "|J»"(ft)  "  »  INPUT  TURB7IJ) 

1990  PRINT  "INPUT  DEPTH  OF  SAMPLE, TURBIDITY (JTU)'  I  INPUT  T2(K),T3(K) 

2000  PRINT  "INPUT  MORE  DATA  FOR  LOCATION" |J|*Y/N7"  i  INPUT  Al 

2010  IF  LEFT*<AV>  «  "Y"  OR  l£FT8(A8,U  ■  "y"  THEM  GOTO  2030 

2020  GOTO  2050 

2030  K=M*1 

2040  GOTO  1990 

2050  NT<J)*K 

2060  J«J+1 

2070  IF  J-JT+1  GOTO  2100 
2080  K=*+i 
2090  SOTO  1960 

2100  CLS  i  PRINT  j  PRINT  i  PRINT 

2110  LPRINT  j  LPRINT  :  LPRINT  i  LPRINT  »  LPRINT 

2120  LPRINT  CHRt (27)  ;CHR$(86>  ;CHR*(  1)  ;CHW(27)  jCWt*(87)  jCHW(l)  j 

2130  lprint  ■  mmmmmmmmmmtr  «  lprint 

2140  LPRINT  "  TURBIDITY  READINGS  "  >  LPRINT 

2150  lprint  *  i  lprint 

2160  LPRINT  CHRt (27) ;CHW (87)  jCHRt (0) 

2170  LPRINT 

2180  LPRINT  *  SITE  NAPC  \TUR88  i  LPRINT 
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2190  LPkINI  *  DfiTE  VUKBS*  :  LPRINT 
2200  FOR  J=1  TO  JT 

22:0  LPRINT  *  TOTAL  DEPTH  AT  LOCATION  ’jjj*  (ft)  \TURB7(J> 

2220  NEXT  J 

2230  LPRINT  ;  LPRINT  *  ALL  DISTANCES  ARE  FRON  THE  GREEN  SIDE  BASELINE* 

2240  LPRINT 

2250  LPRINT  ■  DIST.  TO  DEPTH  OF  TURBIDITY  * 

2260  LPRINT  *  ***  SANPLE(ft)  ***  ***  SAMPLE  *44  44*  (JTU)  *4* 

*  :  LPRINT 
2270  Z=1 

2280  FQR  J»1  TO  If 

2290  LPRINT  '  LOCATION* ; J; 

2300  .PRINT  USING  *  ****  *  *;T1(J) 

2310  FOR  K=Z  TO  NT(J) 

2320  LPRINT  *  *; 

2330  LPRINT  USING  '  I##.#  “;T2(K> ; 

2340  LPRINT  USING  *  #*.#*  *;T3(K) 

2350  NEXT  K 
23cu  Z-=NT(J)+1 
2373  »£XT  J 
2380  60TQ  160 
2390  REN 

2400  REN  PRINTOUT  FOR  ICE  THIDOCSS 
2410  REN 

2420  CLS  i  PRINT  ;  PRINT  ;  PRINT 
2430  K-l 

2440  PRINT  *  PUT  PRINTER  ON  LI)C  -  PLACE  PRINTER  WAD*  1  PRINT 
2450  PRINT  *  AT  THE  TOP  OF  TTC  PAGE*  t  PRINTjPRINT 
2460  PRINT  *  HIT  SPACE  BAR  TO  CONTINUE.* 

2470  Oi- INKEY*:  IF  0*0  *  *  THEN  GOTO  2470 
2480  as  :  PRINT  :  PRINT  :  PRINT 
2490  PRINT  :  INPUT  -SITE  NAME  *5ICE* 

2500  PRINT  :  INPUT  'DATE  OF  READINGS  *jIC£l* 

2510  a.S  :  PRINT  :  PRINT  :  PRINT 

25PO  pot mt  noiuT  .ntcTf^j:  m  i.OCATIO*!  ■jKj’Tfr*  J73OT  side  in  feet)*  :  TNPUT 

T1(K) 

2530  PRINT  'INPUT  DEPTH  AT  LX.  (ft), ICE  THICKNESS(in)*  :  INPUT  T2(N),T3(K) 

2540  PRINT  'INPUT  MORE  DATA  Y/N?*  «  INPUT  A* 

2550  IF  LEFT* (ft*,  1  >  «  *Y*  OR  LEFT*(A*,1>  »  *y*  DO  SOTO  2570 

2560  GOTO  2590 

2570  K*4l 

2560  GOTO  2510 

2590  NUK 

2600  CLS  :  PRINT  j  PRINT  :  PRINT 

2610  LPRINT  :  LPRINT  :  LPRINT  :  LPRINT  :  LPRINT 

2620  LPRINT  CHRt(27);CHR*(88)  ;CHR«(1)  ;CHR*(27)jCHRI(67);C>«$<1>; 

2630  LPRINT  '  :  LPRINT 

2640  LPRINT  *  ICE  THICWCSSES  *  J  LPRINT 

2650  lprint  *  >  lprint 

2660  LPRINT  CHR* (27)  ;CHR$(8?)  jCHR*(0) 

2670  LPRINT 

a&»  LPRINT  '  SITE  NAME  ICE*  :  LPRINT 

2690  LPRINT  '  DATE  ",  ICE1*  i  LPRINT 

2700  LPRINT  :  LPRINT  •  ALL  DISTANCES  ARE  FRON  DC  GREEN  SIDE  BASELINE* 
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2710  LPRINT 

2720  .PRINT  •  DIST.  TO  DEPTH  AT  ICE  THICK  * 

2730  LPRINT  ■  «h  LOC.  (ft)  ***  ♦«LOC,  (ft>**«  *«  (in.)  «#t 

*  :  LPRINT 
27*0  FOR  K*t  TO  NT 
2750  LPRINT 

2760  LPRINT  *  LOCATION*^; 

2770  LPRINT  USIN6  *  ####.#  *;T1(K); 

2780  LPRINT  USING  *  ###.»  *;T2(K)t 

2790  lPPINT  USING  "  M.«  *}T3(K) 

2800  NtXT  K 
2810  SOTO  160 
2820  REN 

2830  REN  ENTER  INTIAL  DATA  FOR  CROSS-SECTION 
28*0  REN 
2850  REN 
2860  E  -  0 

2870  CLS : PRINT : PRINT  :PRINT 

2880  PRINT  'THIS  ROUTII€  IS  0ES1SCD  TO  ALLOW  INPUT*  :  PRINT 
2890  PRINT  'AND  STORAGE  OF  CROSS-SECTION  DATA."  :  PRINT  i  PRINT 
2900  PRINT  'ALL  DISTANCES  SHOULD  IE  INPUT  FRON  A  BASE"  I  PRINT 
2910  PRINT  “ON  T>€  GREEN  SIDE  WHICH  IS  THE  LEFT  SIDE*  :  PRINT 
2920  PRINT  'LOOKING  UP  RIVER.'  s  PRINT 
2930  PRINT  “INPUT  DATA  AS  DISTANCE, ELEVATION*  J  PRINT 

29*0  PRINT  “FOR  EACH  DATA  POINT.*  s  PRINT  i  PRINT 
2950  PRINT  *  HIT  SPACE  BAR  TO  CONTINUE.* 

2960  W=  INKEY*:  IF  0*0  *  *  THEN  GOTO  2960 
2970  CLS 
2980  E  =  E  t  1 

2990  PRINT  :  PRINT  s  PRINT  :  PRINT 

3000  INPUT  'ENTER  DISTANCE  FRON  REFERENCE! X)  AND  ELEVATION(Y), (enter  (-1,0)  to  e 
nd  data  entry)  *,XC(E),YC(E) 

3010  IF  XC(E)  «  -1  THEN  E  *  E  -  1  :  GOTO  30*0 

3020  PRINT 

3030  SOTO  2980 

30*0  as  :  PRINT  t  PRINT 

3C*>  PRINT  'CHECK  DATA  TO  SEE  IF  YOU  WANT  TO  HAKE  ANY  CHANGES" 

3060  PRINT  :  PRINT 

3070  PRINT  -DATA  WILL  BE  DISPLAYED  20  LUCS  AT  A  TINE.  * 

3000  PRINT  :  PRINT  i  PRINT 

3090  PRINT  *  HIT  SPACE  BAR  TO  CONTINUE. * 

3100  Q**  INKEY*  i  IF  0*0  *  *  T*N  GOTO  3100 
3110 

3120  N=20 
3130  as  :  PRINT 

31*0  PRINT  'DATA  POINT  DISTANCED)  ELEVATI0NIY1* 

3150  IF  E(N  THEN  N=€ 

3160  FOR  I  =*  «  TO  N 
3170  PRINT  I,XC(I),YC(I) 

3180  NEXT  I 
3190  J  *  1 

3200  INPUT  *D0  YOU  WANT  TO  CHANGE  ANY  DATA  POINTS  (Yes/No)  *,A* 

3210  J  -  J  ♦  I 

3220  IF  LEFT*(A»,1)  -  *Y*  OR  LEFT»«#,1)  «  *y*  T»€N  GOTO  324© 
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3230  GOTO  3340 
3240  CISsPRINT  iPRiNf  jPfllNT 
3250  INPUT  •EN.'l..  DATA  POINT  *,A 
3260  IF  A  '  .  HOI  £  «  A 
3270  PRINT 

3280  INPUT  ’ENTER  DISTANCE!!)  AM)  ELEVATION! Y)  *,B,C 

3290  PRINT 

3300  XC( A>  *  6 

3310  YC(A)  »  C 

3320  IF  J  =  2  TIO  GOTO  3110 

3330  GOTO  3200 

3340  IF  £<=N  THEN  GOTO  3380 

3350  *=*+20 

3360  N*N+20 

3370  GOTO  3130 

3380  FOR  I  =  1  TO  E 

3390  XX!I)  «  XCII) 

3400  YY(I)  «  YC!I) 

3410  (EXT  I 

3420  S39JB  3500  i  REM  SORT  DATA  POINTS 
3430  FOR  I  »  1  TO  E 
3440  XC(1)  -  XX ( I > 

3450  VC(I)  »  YY(I) 

3460  (EXT  I 

3470  GOSUB  3740  i  REM  PUT  DATA  ON  DISK 
3480  GOTO  160 
3490  REM 

3500  REM  SORT  DATA 
3310  REM 
3320  REM 

3530  CLS  :  PRINT  s  PRINT  :  PRINT 

3540  PRINT  ’  *ait . (SORTING  DATA)’ 

3550  NWPT«€ 

3560  JG  -  NUMPT 
3570  J6  »  INT1J6  /  2) 

3580  IF  J6  •  0  TIEN  3710 

3590  J2  »  NUMPT  -  J6 

3600  FOR  J  -  1  TO  J2 

3610  1  -  J 

3620  J3  «  I  ♦  J6 

3630  IF  XX (I)  <■  XX  <J3)  THEN  3690 

3640  HI  «  XXUI  i  H2  «  YY(I) 

3630  XX(I)  ■  XX (J3)  i  YY(I>  «  YY(J3) 

3660  XX (J3)  *  HI  i  YY(J3)  *  H2 
3670  I  «  I  -  J6 

3680  IF  1)0  TfOl  3620 

3690  NEXT  J 
3700  GOTO  3570 

3710  RETURN  :  REN  FROM  SHELL  SORT 
3720  REM 
3730  SEN 

3740  REM  PUT  DATA  ON  D19! 

3750  REM 
3760  REM 
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3770  CLS:PRINT:PRINT 

3780  PAINT  *KJT  DATA  DISK  IN  DRIVE  »B'  *:PRINT.*PRIN7 
3790  PRINT  ‘HIT  SPACE  BAR  TO  CONTINUE.* 

3800  W=INK£Y*:1F  WO*  *  THEN  GOTO  3800 

3810  CLS 

3820  PRINT 

3830  PRINT 

3840  PRINT 

3850  PRINT:INPUT  ’INPUT  NAME  OF  fCH  DATA  FILE  B: *, At  :  PRINT 
3860  A*=*B:"+A* 

3870  OPEN  A*  FOR  OUTPUT  AS  1 

3880  INPUT  “NANE  OF  SECTION  *;HEAM 

3890  PRINT  ll.tCAD*  i  PRINT 

3900  INPUT  “DATE  OF  SOUNDING  *}1€A01* 

3910  PRINT  #1,HEAD1*  :  PRINT 

3920  INPUT  ’MATER  SURFACE  ELEVATION  »  *51€AD2* 

3930  PRINTil, HEADS*  :  PRINT 
3940  PRINT#!, E 
3950  FOR  1=1  TO  E 
3960  PRINT  *1,XC(I);YC(I) 

3970  NEXT  I 
3980  CLOSE  «1 

3990  RETURN  :  REN  FROH  PUTTI*  DATA  ON  DI* 

4000  REN 
4010  REN 

4020  REN  TO  CHANGE  EXISTING  DATA  FILE 
4030  REN 

4040  CLS: PRINT  .-PRINT  .-PRINT 

4050  PRINT  *  THIS  ROUT  I*  IS  DESIGNED  TO  ALLOW  CHANGES*  !  PRINT 
4060  PRINT  *  OF  AN  EXISTING  CROSS-SECTION  DATA  FILE.  *  !  PRINT 
4070  PRINT  *  AFTER  THE  DATA  HAS  BEEN  READ  IT  WILL  BE*  :  PRINT 

4080  PRINT  *  DISPLAYED  20  LINES  AT  A  TItt  TO  DETERHIIC*  :  PRINT 

4090  PRINT  *  WHICH  POINTS  ARE  TO  BE  CHANGED.  THE  NEW  FILE  *  ;  PRINT 

4100  PRINT  *  WILL  THEN  BE  STORED  ON  THE  DATA  DISK. TO  ADO*  t  PRINT 

4110  PRINT  *  A  POINT  INPUT  THE  ICXT  NUWER  AFTER  TIC  LAST*  »  PRINT 
4120  PRINT  *  DATA  POINT  IN  THE  FILE  AND  T*  CQWUTEA  HILL  *  «  PRINT 
4130  PRINT  *  STORE  IT  IN  ITS  CORRECT  PLACE  IN  TIC  FILE.  ’  i  PRINT 
4140  PRINT  *  PUT  DATA  DISK  IN  DRIVE  ’B”  jPRINT 

4150  PRINT  *  HIT  SPACE  BAR  TO  CONTINUE.* 

4160  W*INK£Y*:IF  WO  *  *  THBI  GOTO  4160 
4170  BOSUB  4530  j  REN  TO  GET  DATA  OFF  DI» 

4180  N=1  j  N*2 0 
4190  CLS: PRINT  ;PRINT 
4200  IF  E(=N  THEN  N=€ 

4210  PRINT  ’DATA  POINT  DISTANCE(X)  ELEVATI0N1Y)* 

4220  FOR  I  =  N  TO  N 

4230  PRINT  I,XC(I),YC(I) 

4240  (EXT  I 
4250  PRINT  .-PRINT 

4260  I#>UT  'DO  YOU  WANT  TO  CHANGE  ANY  OF  TFCSE  DATA  POINTS  (Yes/No)  *,A* 

4270  IF  LERKA*,  1)  *  *Y*  OR  LEFT*(A*,1)  «  *y*  THEN  GOTO  WO 

4280  IF  EI-N  THEN  GOTO  4400 

4290  MU-20  i  MH20 

4300  GOTO  4190 


102 


*310  J  =  1 

*320  CLSsPRINT  SPRINT  sPRIMT 

*330  INPUT  ‘ENTER  POINT  YOU  WANT  TO  CHANGE  OR  ADO,  DISTANCE (I), AND  ELEVATION(Y)* 
,A,B,C 

*3*0  XC ( A)  *  6 

*350  YC(A)  *  C 

*360  IF  A  >  E  THEN  E  *  A 

*370  IF  E=A  THEN  N=N+1 

*380  IF  J<  3  TI£N  J  *  J  ♦  1  aSE  GOTO  *190 

♦390  SOTO  *190 

4*00  POR  I  =  1  TO  € 

**10  XX(I>  *  XC<I) 

**20  YY(I)  =  YC(I) 

♦*30  NEXT  I 

***0  SOSUB  3500  :  REN  SORT  THE  DATA 
**50  FOR  I  =  1  TO  E 
**60  XC(I)  =  XX(I) 

**70  YC(I)  =  YY(I> 

**80  NEXT  1 

**90  SOSUB  37*0  i  REM  PUT  THE  DATA  ON  DISK 
*500  SOTO  160 
*510  REM 
*520  REM 

*530  REM  SET  DATA  FROM  DISK 
*5*0  REM 
*550  REM 

*560  CLSsPRINT  SPRINT  sPRINT 

*570  PRINT  sINPUT  ‘INPUT  NAME  OF  DATA  FILE  Bs’.A*  sPRINT 
*530  AM'Bs'+A* 

*590  OPEN  A5  FOR  INPUT  AS  1 
*600  INPUT  #1,HEAD* 

*610  PRINT  s  PRINT  “NAME  OF  SECTION  “;HEAD» 

*620  INPUT  il.HEADl* 

*630  PRINT  s  PRINT  “DATE  OF  SOUNDING  “jHEAOl* 

*6*0  INPUT  #1,  HEADS* 

*650  PRINT  s  PRINT  “HATER  SURFACE  ELEVATION  AT  DATE  «  ‘jl€AD2* 

*660  INPUT#!, E 

*670  PRINT  s  PRINT  “NUMBER  OF  DATA  POINTS  ■  “jE 
*630  PRINTsPRINT 
*690  I»1 

*700  IMPUT  #1,  XC(I), YC(1) 

*710  IF  I=€  THEN  GOTO  *7*0 
*720  1«I*1 
*730  GOTO  *700 

*7*0  PRINT  s  PRINT  “END  OF  DATA  FILE  ‘jA* 

*750  CLOSE  #1 
*760  PRINTsPRINT 

*770  PRINT  ‘HIT  SPACE  BAR  TO  CONTINUE.’ 

*780  B*= INKEY*: IF  0*0  “  “  THEN  GOTO  *780 
*790  (ETURN  i  REM  GET  DATA  FROM  DISK 
*800  REM 

*810  REM  PRINT  CROSS-9ECT10N  MTA 
*820  REM 

*830  CLSsPRINT  sPRINT  sPRINT 
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4640  PRINT  'PUT  PRINTER  ON  LINE  -  PLACE  PRINTER  ICAO*  t  PRINT 
4850  PRINT  'AT  THE  TOP  OF  THE  PAGE. *  :  PRINT 
4660  PRINT 

4870  PRINT  ’PUT  DATA  DI«  IN  DRIVE  ’B” 

4880  PRINTiPRINT 

4890  PRINT  'HIT  SPACE  BAR  TO  CONTINUE.* 

4900  Q8=INKEY$!lF  080  *  *  THEN  BOTH  4900 

4910  80SUB  4530  i  REN  GET  DATA  FROM  DISK 

492C  LPR INT:LPRINT :LPRINT :LPR INT jLPRINT iLPRINT s LPRINT 

4930  LPRINT  CHR8 (27) jCHR$(88) jCHRI < 1) }CHR8(27) |CHR! (87) jCHR8 (i ) ; 

4940  LPRINT  *  WWOtjteWiQOQtOIOOOtOOQCeiMMCIIW* 

4950  LPRINT  *  SOUNDIW  DATA  *:  LPRINT 

4960  LPRINT  *  NAME  OF  SECTION  ’ {HEAD* 

4980  LPRINT  CHR8 (27) ;CHR$ (87 ) jCHRI (0) 

4990  LPRINT  :  LPRINT,  ■  DATE  OF  SOUNDING  *?I€AD18 

5000  LPRINT  :  LPRINT, *  HATER  SURFACE  ELEVATION  in  feet  *  ';HEA028 

5010  LPRINT.-LPRINT 

5020  M=1 

5030  N=40 

5040  GOTO  5120 

5050  LPRINT  CHR«(27);CHR8(87)  iCHR«(l>; 

5060  LPRINT  * 

5070  LPRINT  *  SOUNDING  DATA  (continued)  *j  LPRINT 
5060  LPRINT  ‘  NAIC  OF  SECTION  *;HEAD8 

5100  LPRINT  CHR* (27)  ;CHR8(87)  ;OW<(0) 

5110  LPRINT:LPRINT 

5120  LPRINT  '  DATA  POINT  DISTANCE(ft)  ELEVATION  (ft)* 

5130  IF  E(N  THEN  N-£ 

5140  LPRINT 
5150  FOR  I*N  TO  N 

5160  LPRINT  USING  *  *M  *|I| 

5170  LPRINT  USING  '###•.•  *jXC<I)| 

5180  LPRINT  USING  '•*««».•  *;YC(I) 

5190  IOT  I 

5200  IF  £<*N  GOTO  5260 
5210  M=N+1 
5220  N=N+44 

5230  LPRINT:LPRlNT:LPRIKTiLPRINTiLPRINT(LPRINTiLPRINTiLPRINTiLPRINTiLPRINT 
5240  LPRINT 
5250  GOTO  5050 

5260  60T0  160  i  REM  FROM  PRINT  X-SECT.  DATA 
5270  REMi  ENTER  INTIAL  DATA  FOR  DRAUOOUNS 
5280  REM 
5290  REM 
5300  E  »  0 

5310  CLS  ;PRINT  i PRINT 

5320  PRINT  'THIS  ROUTI*  IS  DESIGNED  TO  ALLOW  iNPUT*  :  PRINT 
5330  PRINT  'AND  STORAGE  OF  DRAWDOWN  DATA.*  :  PRINT  s  PRINT 
5340  PRINT  'ALL  DISTANCES  SHOULD  BE  INPUT  FROM  A  BASE*  i  PRINT 
5350  PRINT  "ON  THE  GREEN  SIDE  WHICH  IS  THE  LEFT  SIDE*  i  PRINT 
5360  PRINT  'LOOKING  UP  RIVER.  *  s  PRINT 
5370  PRINT  ‘INPUT  DATA  A6  TIME, GAUGE  READING*  i  PRINT 
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5380  PRINT  ’FOR  EACH  DATA  POINT.  *  j  PRINT  :  PRINT 
5390  PRINT  ■  HIT  SPACE  BAR  TO  CONTINUE.* 

5400  Q*=lNK£Yi:  IF  0*0  *  *  THEN  SOTO  5400 
5410  as 
5420  E  =  £  +  1 

5430  PRINT  :  PRINT  :  PRINT  :  PRINT 

5440  INPUT  *TI*  FROM  »0*  in  sec,  AN 0  BttJGE  READING  in  inches- (enter  (-1,0)  to 

nd  data  entry)  *,TC(E),DRC(E) 

5450  IF  TC(E)  «  -1  T)€N  £  «  E  -  1  i  GOTO  5480 

5460  PRINT 

5470  GOTO  5420 

5480  aS  t  PRINT  s  PRINT 

5490  PRINT  'CHECK  DATA  TO  SEE  IF  YOU  UANT  TO  MAKE  ANY  CHANGES* 

5500  PRINT  :  PRINT 

5510  PRINT  'DATA  HILL  BE  DISPLAYED  20  LINES  AT  A  TIME.* 

5520  PRINT  :  PRINT  :  PRINT 

5530  PRINT  *  HIT  SPACE  BAR  TO  CONTINUE.* 

5540  Q*=INKEY$  :  IF  »<>  *  *  THEN  GOTO  5540 

5550  Ml 

5560  N=20 

5570  as  :  PRINT 

5580  PRINT  "DATA  POINT  TIME(T)  READING! Y)* 

5590  IF  E<N  THEN  N=€ 

5600  FOR  I  3  M  TO  N 

5610  PRINT  I,TCU),DRC<I) 

5620  NEXT  I 
5630  J  *  1 

5640  INPUT  *D0  YOU  UANT  TO  CHANGE  ANY  DATA  POINTS  (Y«s/No> 

5650  J  *  J  ♦  1 

5660  IF  L£FT*(A*,1>  «  *Y*  OR  LEFT«(A*,1)  -  -y*  THEN  GOTO  5680 
5670  GOTO  5780 
5680  PRINT 

5690  INPUT  ‘ENTER  DATA  POINT  *,A 
5700  IF  A  )  E  THEN  E  *  A 
5710  PRINT 

5720  INPUT  'ENTER  TI*(T>  AND  GAUGE  READINB(Y)  *,B,C 

5730  PRINT 

5740  TC(A)  «  B 

5750  DRC(A)  «  C 

5760  IF  J  *  2  THEN  GOTO  5570 

5770  GOTO  5640 

5780  IF  E(«N  THEN  GOTO  5880 

5790  M=M+20 

5800  **+20 

5810  GOTO  5570 

5620  FOR  I  «  1  TO  E 

5830  XX(I)  *  TC(I> 

5840  YY(I)  -  DRC(I) 

5850  NEXT  I 

5860  GOSUB  3500  i  REN  SORT  DATA  POINTS 
5870  FOR  1  «  I  TO  E 
5880  TC<1>  *  XXII) 

5890  DRC(I)  «  YYII) 

5900  NOT  I 
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5910  60SJJ8  5950  i 
5920  SOTO  160 
5930  30* 

5940  REM 


REM  PUT  DATA 


5960  REM 
5970  REM 

5980  ClSsPRINTsPRIXT 

5990  PRIMT  ’PUT  DATA  DISK  IN  DRIVE  ’P  's PRINT* PRINT 
6000  PRINT  'HIT  SPACE  BAR  TO  CONTINUE.' 

6010  INKEY* : IF  0*0*  '  Tt€N  GOTO  6010 

6020  CLS 

60X  PRINT 

6040  PRINT 

6050  PRINT 

6060  PRINTsINPUT  "INPUT  NAME  OF  NEW  DATA  FILE  Bj\AI 
6070  A**"Bs"*A» 

6080  OPEN  A*  FOR  OUTPUT  AS  1 
6090  INPUT  “NA*  OF  SECTION  "jlCAD* 

6100  PRINT  11, HEAD* 

6110  INPUT  ‘DATE  OF  OBSERVATION  a;l€ADll 
6120  PRINT  *  1 , HEADl * 

6130  INPUT  ‘VESSEL  NAME  *;*EAD3t 
6140  PRINT  *1,HEAD3* 

6150  IW*UT  'UPBOUND  or  OOWNBOUND  *;NEAD9t 
6160  PRINT  #1,)£AD9* 

6170  INPUT  'VESSEL  LENGTH  (ft)  »  ‘jttAW* 

6180  PRINT  «1,)CAD4« 

6190  INPUT  ‘VESSEL  BEAM  (ft)  -  ‘{HEADS* 

6200  PRINT  #1,)€A05* 

6210  INPUT  '\€SSEL  DRAFT  (ft)  «  ‘j)CP06* 

6220  PRINT  tl,HEAD6* 

6230  INPUT  'VESSEL  SPEED  (ft/sec)  •  ‘j»EA07» 

6240  PRINT  Vl,HEA07t 

6250  INPUT  'BOW  ON  TIME  (sec)  >  ‘{tCADA* 

6260  PRINT  «l,t€ADM 

6270  IWUT  'STERN  ON  TINE  (sec)  •  ’j)€ADB* 

6280  PRINT  #lf)€AM* 

6290  I  WRIT  -DISTANCE  TO  STAFF  6AU6E  froa  |rten  aide  (ft)  -  a| 
6300  PRINT  tl,(€AD8l 

6310  INPUT  ’BACK6R0UM)  READING  (in)  -  *})£A02 

6320  PRINT«1,HEAD2 

6330  PR1NT«1,E 

6340  FOR  1-1  TO  E 

6350  PRINT  *1, TC(I) (DRC(I) 

6360  IOT  I 
6370  CLOSE  il 

6380  RETURN  i  REN  FROM  PUTTINB  DATA  ON  DISK 
6390  REN 

6400  REN  PRINT  DRAWDOWN  DATA 
6410  R» 

6420  CLSsPRINT  sPRlNT  sPRINT 

6430  PRINT  ‘WT  PRINTER  ON  LINE  -  PLACE  PRINTER  *»'  i  PRINT 
6440  PRINT  'AT  T)C  TOP  OF  T)C  PAGE'  i  PRINT 


6450  PRINT 

6460  PRINT  'PUT  ORTA  DISK  IN  DRIVE 
6470  PRINT:PRINT 

6400  PRINT  'HIT  SPACE  MR  TO  CONTINUE.' 

6430  Q*=INKEY$:1F  QDO  '  *  THEN  GOTO  6490 
6500  SGSUB  7070  s  REN  GET  ORTA  FROM  DISK 
6510  LPRINTsLPRINT:LPRINT:LPRINTjLPRINTsLPRINTiLPRINT 
6500  L PRINT  CHR$  (27)  jCHW  (80)  ;CHW(  1) ; 

6530  LPRINT  *  RWOOOOOtWIlWWHgtCIgllHWOllfOOglglWOI' 

6540  LPRINT  '  DRAWDOWN  DATA  'j  LPRINT 

6550  LPRINT  *  NAME  OF  SECTION  'jfCAD* 

6560  lprint  * 

6570  LPRINT  :  LPRINT  '  DATE  OF  OBSERVATION  'jKEADl* 

6560  LPRINT  :  LPRINT  '  VESSa  NAME  'jt€AD3* 

6530  LPRINT  :  LPRINT  '  DIRECTION  ';HEAD9* 

6600  LPRINT  :  LPRINT  '  VESSa  LEN6TH  in  feet  »  *jHEAD4< 

6610  LPRINT  :  LPRINT  •  VESSa  BEAN  in  feet  «  '  jHEADSt 

6620  LPRINT  :  LPRINT  '  VESSa  DRAFT  in  feet  »  *}HEAD6» 

6630  LPRINT  :  LPRINT  *  VESSEL  SPEED  in  feet /sec.  •  'jHEADTI 

6640  LPRINT  :  LPRINT  ‘  BOW  ON  TINE  in  tec  >  *;HEAOM 

6650  LPRINT  :  LPRINT  ‘  STERN  ON  TINE  in  hc  ■  '(HERDM 

6660  LPRINT  :  LPRINT  '  DISTANCE  TO  STAFF  GAUGE  free  green  aide  in  feet 

=  *;f£ADfl$ 

6670  LPRINT  :  LPRINT  ’  BACKGROUM)  READING  in  inches  ■  *(t€ADG 

6680  LPRINT: LPRINT 

6690  N=1 

6700  N=20 

6710  1041 

6720  SOTO  6730 

6730  REM 

6740  LPRINT  * 

6750  LPRINT  '  DRAWDOWN  DATA  (continued)  '«  LPRINT 

6760  LPRINT  ‘  NANE  OF  SECTION  '{HEAD! 

6770  LPRINT  '  (ttlWMOOttMMWgt^^ 

67fi0  LPRINTjLPRIMT 

6790  LPRINT  *  GAUGE  CHANGE  ■ 

6800  LPRINT  '  DATA  POINT  TINE(sec)  READING (in)  FRON  B6(in)' 

6810  IF  E(N  THEN  N=€ 

6820  LPRINT 

68,10  FOR  I=H  TO  N 

6840  Z(I)  »  DRC(I)  -  «ADe 

6850  LPRINT  USING  '  ***  a|I| 

6860  LPRINT  USING  *•#««.«  "*TC<I)| 

6870  LPRINT  USING  'MMI.#  " jDRC(I)  | 

6880  LPRINT  USING  'Mi. I  'jZ(I) 

6890  NEXT  I 

6900  IF  E(*N  GOTO  6970 
6910  N4I+1 
6980  N=N+44 
6930  NQ=N 

6940  LPRINT:LPRINT:LPRINT :LPRINTiLPdINT jLPRINT iLPRINT jLPRINT jLPRINT iLPRINT 
6950  LPRINTjLPRINTiLPRINT 
6960  GOTO  6730 
6970  NN=NQ-£«6 
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6980  FOR  1=1  TO  NN 
6990  IPS I NT 
7000  »£XT  I 

7010  CLS  :  MINT  x  PRINT  i  PRINT  i  PRINT 

7020  INPUT  *00  YOU  NANT  TO  PRINT  ANOTHER  (Yes/No)  "|At 

7030  IF  L£FT«A*,1)  «  *Y*  OR  L£FT*(A*,1)  •  V  T)CN  60T0  6510 

7040  GOTO  160  :  REN  FROM  PRINT  MMOM  DATA 

7050  REN 

7060  REN 

7070  R£N  GET  DSANDORN  DATA  FRON  DISK 
7000  REN 
7090  REN 

7100  (LS.-PR1NT  .-PRINT  :PRINT 

7110  PRINTsINPUT  'INPUT  NAME  OF  NEW  DATA  FILE  B:',M  :  PRINT 
7120  A*=*B:'+A* 

7130  OPEN  A*  FOR  INPUT  AS  1 
7140  INPUT  tl,t£AD* 

7150  PRINT  s  PRINT  *N«C  OF  SECTION  'jHEAO* 

7160  INPJT  il.HEADl* 

7170  PRINT  'DATE  OF  OBSERVATION  *;HEA01t 
7180  INPUT  *1,HEAD3* 

7190  PRINT  'VESSa  NAtC  *;1€A03* 

7200  INPUT  #1,HEAD9* 

7210  MINT  'UPBOUN)  or  OOUNBOUNO  ';HEA09* 

7220  I#>OT  #l,HEAD4< 

7230  MINT  'VESSEL  LENGTH  (ft)  ■  *;HEAD4* 

7240  INPUT  *1,  HEADS* 

7250  PRINT  'VESSEL  BEAN  (ft)  *  *})EAD5* 

7260  INPUT  #1,HEAD6* 

7270  MINT  'VESSEL  DRAFT  (ft)  •  'j*£K>6* 

7280  IWHU  #1,)€AD7* 

7290  PRINT  'VESSEL  SKED  (ft/iec)  «  *jHEAD7* 

7300  INPUT  »1,)€ADA* 

7310  MINT  'BOM  ON  TINE  (sec)  •  'jHEADA* 

7320  IXKJT  *1,HEADB* 

7330  MINT  'STERN  ON  TINE  (tec)  -  'jHEAOB* 

7340  INPUT  *1, HEADS* 

7350  PRINT  'DISTANCE  TO  STAFF  GAUGE  froa  grm  sidt  (ft)  *  ';HEAD6* 
7360  INPUT«1,HEAD2 

7370  PRINT  'BACK6R0UM)  READING  (in)  -  *|)€AD2 
7380  INPUT*1,E 
7390  1*1 

7400  INPUT  #1,TC(I),DRC(I) 

7410  IF  I=€  TVEN  GOTO  7450 
7420  1=1+1 
7430  GC’O  7400 

7440  PRINT  i  PRINT  'END  OF  DATA  FILE  '{A* 

7450  CLOSE  #1 

7460  PRINT  .-PRINT  •  HIT  SPACE  BAR  TO  CONTINUE*  * 

7470  Q*=INX£Y»:  IF  0*0  '■  THEN  GOTO  7470 
7480  RETURN  :  REN  FRON  PUTTING  DATS  ON  DISK 
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ONE. SUB 


100  CLEAR 

110  DIN  XC(200),VC(200),n(200),ry(200)frEK?(200),I<£00),J(200),VN(200) 

120  DIN  E(200),A(200),TC(200),DRC(200), 2(2001 

130  DIN  W<5),Pt<5),Qt(5),Tl<20>,TUR87<20),T2(50),T3(50> 

140  DIN  X(50),Y<50),  YP(50),R(50),NT (20),YPR(50),XPR(50) 

150  DIN  XD(50),YD(50),  YPD(50),RD(50) 

160  as  :  KEY  OFF 
170  PRINT  : PRINT 

180  PRINT  ■  OPTIONS'  :  PRINT 

190  PRINT  * 

200  PRINT  "  0  RETURN  TO  MAIN  PROGRAM  NENU* 

210  PRINT 

220  PRINT  '  1  CALCULATE  AREAS  AND  TCPWIDTHS  OF  CROSS-SECTIONS* 

230  PRINT 

240  PRINT  '  2  CALCULATE  DRAWDOWS  USING  A  SINGLE  VESSEL  SPEED* 

250  PRINT  '  AND  GIVE  RELATIVE  DANA6E* 

260  PRINT 

270  PRINT  *  3  CALCULATE  DRAWDOWNS  ITERATING  VESSEL  SPEED* 

280  PRINT  '  AND  GIVE  RELATIVE  DAMAGE* 

290  PRINT 

300  PRINT  *  4  FIT  LIGHT  METER  DATA  TO  LUC  AND  GIVE  RESULTS* 

310  PRINT 

320  PRINT: INPUT  *  IN WT  OPTION  *;OPT 

330  IF  OPT  *  0  THEN  GOTO  400 

340  IF  (OPT (1)  OR  (OPT  >4)  TIEN  PRINT’BAD  OPTION  MJNBER*:GOTO  170 

350  as 

360  PRINT  :  PRINT  j  PRINT  :  PRINT 

370  ON  OPT  GOSUB  710,  1860,  390,  7320 

380  GOTO  160 

390  LOAD-THREE.  SUB*, R 

400  LOAD*BEGIN.TWO*,R 

410  as  :  GOTO  170 

420  REM 

430  REM 

440  REM  6ET  DATA  FROM  DIW 
450  REN 
460  REM 

470  aSjPRINTsPRINT 

480  PRINT  jINPUT  'INPUT  NATC  OF  DATA  FILE  B:',A$  :PRINT 

490  At=*B:**AI 

500  OPEN  At  FOR  INPUT  AS  1 

510  INPUT  «1, HEADS 

520  PRINT  :  PRINT  *NA*  OF  SECTION  *;HEADt 
530  INPUT  tl,l€ADlt 

540  PRINT  :  PRINT  ‘DATE  OF  SOUNDING  “jHEADlt 
550  INPUT  «l,lEAD2t 

560  PRINT  s  PRINT  ’HATER  SURFACE  ELEVATION  AT  MTE  »  *i(€AD2t 
570  INPUTI1,E 
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S60  PRINT  :  PRINT  "NUNBER  Of  DATA  POINTS  =  ’;£ 

590  1=1 

600  INPUT  II,  XC(I),YC(I) 

610  IF  I=E  TFEN  GOTO  640 
620  1=1+1 
630  SOTO  600 

640  PRINT  :  PRINT  ‘END  OF  DATA  FILE  *;A* 

650  CLOSE  #1 
660  PRINT: PR  IN* 

670  PRINT  ‘KIT  SPACE  BAR  TO  CONTINUE. “ 

660  £»=IPKEY*:  IF  0*0  *  ■  THEN  GOTO  680 
690  RETURN  :  REN  GET  DP, TP  FRO*  DISK 
700  REN 

710  REN  CALCULATE  AREA1,  AREAS,  TOPWIDTH 
720  REN 

730  as  :  PRINT  :  PRINT  :  PRINT 

740  PRINT  “THIS  ROUTINE  PlLOLS  FCR  CALCULATION  OF  AREAS”  :  PRINT 
750  PRINT  "AND  TOPWIDTHS  OF  RIVER  SECTION$  USING  STORED  *  :  PRINT 
760  PRINT  “CROSS-SECTION  DATA.  IT  WILL  CA.CUuA'E  THE  'QTAL“  :  PRINT 
770  PRINT  "AREA  AND  TOP  WIDTH  PIUS  THE  AREAS  ON  THE  RED  AND*  :  PRINT 
780  PRINT  ‘GREEN  SIDES  OF  THE  VESSEL.*  :  PRINT  :  PRIN' 

790  PRINT  'PUT  DATA  DISK  IV  DRIVE  ’B’.*  :  PRINT 
800  PRINT  'HIT  SPACE  BAR  TO  CONTINUE. * 

810  0*=INKEY*:IF  »<>  ”  *  THEN  6CTG  810 
820  GCSUB  440  :  REN  GET  DATA  FROtr  DISK 
830  GOTO  860 

840  aS:PRINT:PRINT:PRINT 

850  PRINT  ’CALCULATE  AREAS  WITH  DATA  INPUT.” 

860  aS:PRINT :PRINT : PRINT 

870  INPUT  "WATER  SURFACE  ELEVATION  =  WS  =  *;WS 

880  PRINT  .-PRINT 

890  INBJT  "ENTER  DISTANCE  TO  UPBOUND  VESSEL  F.RON  GREEN  SIDE  ir.  feet  =  ”iDC(l) 

900  PRINT :PRINT 

910  INPUT  "ENTER  DISTANCE  TO  OOWNfiOUND  VESSEL  FROM  GREEN  SIDE  in  feet  =  ”;DC<2> 
920  aS  :  PRINT  :PRINT:PRINT 

930  PRINT  "  N«t . " 

940  FOR  I  =  1  TO  E 

950  YTEHP(I)  «  US  -  YC(I) 

960  NEXT  I 

970  FOR  J=1  TO  2 

980  AREAl<J)=0:AREA2(J)=0:XPfCV*0:YPREV«0 

990  B=E+1 

1000  FOR  I  »  1  TO  E 

1010  IF  XC(I)=XPR£V  GOTO  1030 

1020  GOTO  1040 

1030  XC(I)=XC(I)+.l 

1040  IF  I  >  B  THEN  GOTO  1240 

1050  IF  XC(I)  >  DC(J)  THEN  60T0  1140 

1060  IF  YTEHP(I)  <=  0  THEN  SOTO  1290 

1070  IF  YPREV  (  0  GOTO  1100 

1080  AREA1  ( J>  =AREA1  ( J)  ♦  ( ( XC 1 1 MPREV)  *  (.  5)  *  ( Y'ENP  1 1 )  +YPREV) ) 

1090  GOTO  1110 

1100  AREA1 !J)=AREA1 (J)+((.5)»( (YTEMP(I))/(YTERP(I)-YPREV) )» (YTEMP ( I ) ) * (XC(I) -XPR 
EVU 
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1110  XPREV  •  XC(I) 

1120  YPREV  *  YTENP(I) 

1120  SOTO  1310 

1140  B  *  I 

1150  0RE(U<J)'#l&UtJ)H<lC(l)-XPREV)*<.5)*<YTENP<l)+YPr!EV)*<(DC(J)-XPt£V)/{XC( 
I ) — XPHEV) ) ) 

1160  IF  >1  THEN  GOTO  1190 

1170  D6=YPREV  ♦  ( YTEMP(  I)  -YPREV)  * <  (DC ( J) -XPREV) / (XC  < ! ) -XPREV) ) 

1180  GOTO  1200 

1190  D5SYPR£V  ♦  <YT£MP<I)-YPR£V)#((llC«J)-XPREV)/{XCa)-r?0)) 

1200  fi(€fl2(J)sflREfl21J)+((XC(I)-XPREV)*(.5)«{YTENP(I)+YPRFV)JM(XC(I)-DC(J))/(XC( 
D-XPREV)) ) 

1210  XPREV  »  XC(I) 

1220  YPREV  *  YTENP(I) 

1220  GOTO  1210 

1240  IF  YPREV  <*  0  GOTO  1290 

1250  IF  YTEMP(I) <0  GOTO  1280 

1260  flR£fl2(J)*AREP2(J)+((IC(l)~XPfl£V)«(.5)»(YTEHP(I)+YPREV)) 

1270  GOTO  1290 

1280  AREA2  (J )  =AREB2  <J>  •*(  {.  5)  ■»<  (YPREV ) !  ( YPREV-YTElP  (!)))«(  YPREV)  <  ( XC  ( I )  -XPREV) ) 
1290  XPREV  «  XC(I) 

1300  YPREV  »  YTEHP(I) 

1310  NEn  I 

1320  ICXT  J 

U/)  iAflEA=fift£fll  ( 1)  ♦AREA211) 

1340  XPREV=0 

1350  VPREV=0 

1360  FOR  I  *  l  TO  E 

1365  IF  YTEHP<1)=0  THEN  GOTO  1500 

1370  IF  YTEHP(I)=YPREV  GOTO  1390 

1380  GOTO  1400 

1390  YTEMP(I)*YTEHP(I)+,  J 

1400  IF  XC(I)SXPREV  GOTO  1420 

1410  GOTO  1430 

1420  xc<u=xc<m.i 

1430  IF  XC(I)  <  0C(1)  T«N  GOTO  1450 

1440  IF  XC(I)  )*  DCIll  THEN  GOTO  1540 

1450  IF  YTEH><I)  <0  GOTO  1510 

1460  IF  YPREV  )=  0  GOTO  1510 

1470  IF  YTEMP ( I )  *0  GOTO  1500 

1480  ll*XPREVM(XC(I)-XPREV)*<  (VTEMP(I) )  /  (YTEUP  ( I ) -YPREV) )) 

1490  GOTO  1510 

1500  11  «  XCII) 

1510  XPREV  «  XCU) 

1520  YPREV  «  YTENP(I) 

1530  GOTO  1610 

1540  IF  YPREV  <  0  GOTO  1510 

1550  IF  YPREV  *  0  GOTO  1590 

1560  IF  YTEHP(I))=0  GOTO  1510 

1570  L2*XPREV* 1 ( XC ( I) -XPREV) » ( (YPREV) I (YPREV-YTEHP (I)))) 

1580  GOTO  1510 

1590  12  ■  XPREV 

1600  GOTO  1510 

1610  NEXT  I 

1620  TW  *  RBS(L2  -  LI) 
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1 63C  US 
1640  PRINT 
165C  PRIN’ 

1660  PRINT  *NAf€  OF  SECTION  ";KEAD*  :  PRINT 

1670  PRINT  USING  “WATER  SURFACE  ELEVATION  in  feet  =  ttti.tt  “;WS  :  PRINT 

1680  PRINT  “DISTANCE  TO  UPBOUND  VESSEL  free  green  side  in  feet  =  *;DC<1)  :PRINT 

1690  PRINT  “DEPTH  AT  CENTER  OF  UPBOJND  VESSEL  in  feet  =  *jD5  :  PRINT 

1700  PRINT  “DISTANCE  TO  DQWNBOWD  VESSEL  froe  green  side  in  feet  *  “;DC(2) :PRIMT 

1710  PRINT  “DEPTH  AT  CENTER  OF  DOWNBOUND  VESSEL  in  feet  =  “;D6  :  PRINT 

1720  PRINT  USING  “TOTAL  AREA  OF  SECTION  in  sq.  feet  =  ««##.  “;7AREA  :  PRINT 

1730  PRINT  “  HIT  SPACE  BAR  TO  CONTINUE.' 

1740  fiV=INK£Yi:  IF  WO  *  *  THEN  G0T0  1740 
1750  CIS  :  PRINT 

1760  PRINT  USING  “AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL  in  sq.  fee*.  *  »*###*. ";AR 
EA1 (1) : PRINT 

1770  PRINT  USING  “AREA  ON  RED  SIDE  Of  UPBOUND  KSSEL  in  sq.  feet  =  ######. *;AREA 
2(1)  :  PRINT 

1780  PRINT  USING  "AREA  ON  GREEN  SIDE  OF  DOWNBOUND  VESSEL  in  sq.  feet  =  *##*#*.“; 
AREA! (2) : PRINT 

1790  PRINT  USING  “AREA  OJ  RED  SIDE  OF  DOWNBOUND  VESSEL  in  sq.  feet  *  *###t#.*;AR 
EA2(2) :-RINT 

1200  PRINT  USING  “WIDTH  OF  WATER  SUR-ACE  in  feet  =  ****#*.«  “;TW  :  PRINT 
1810  PRINT 

1820  INPUT  “DO  YOU  WANT  A  HARD  COPY  (Yes/No)*}A$ 

1830  IF  LEFTtlAt,  1)  =  “Y“  OR  LEFT*(A$, 1)  =  “y“  THEN  GOTO  7040 
1840  RETURN  :  REN  FROM  PRINTING  OUTPUT 
1850  REX 

1860  REX  CALCULATE  DRAWDOWNS 
1870  REX 

1880  CIS  :  PRINT  s  PRINT  :  PRINT 

1890  PRINT  “THIS  ROUTINE  ALLOWS  FOR  CALCULATION  OF  DRAWDOWNS"  :  PRINT 
1900  PRINT  "AND  DAMAGE  FOR  THE  PASSAGE  OF  A  VESSEL  UPBOUND,  *  i  PRINT 
1910  PRINT  "DOWNBOUND  OR  BOTH  DIRECTIONS  FOR  A  GIVEN  SPEED.*  :  PRINT 
1920  PRINT  "IT  WILL  ALSO  GIVE  A  PRINTOUT  OF  THE  RESULTS*  !  PRINT 
1930  PRINT  "IF  PROMPTED  BY  THE  USER.*  :  PRINT  ;  PRINT 
1940  PRINT  "HIT  SPACE  BAR  TO  CONTINUE." 

1950  W=INKEY*:IF  WO  “  *  THEN  SOTO  1950 

I960  CIS  :  PRINT  :  PRINT  :  PRINT 

1970  PRINT  'CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS*  :PRINT 

1980  PRINT  ‘CALCULATE  DRAWDOWNS  FDR*  :  PRINT 

1990  PRINT  1,  'UPBOUND  VESSEL  ONLY*  s  PRINT 

2000  PRINT  2,  ’DOWNBOUND  VESSEL  ONLY"  :  PRINT 

2010  PRINT  3,  "BOTH  UPBOUND  t  DOWNBOUND  VESSELS*  s  PRINT  s  PRINT 

2020  I  WHIT  *  INPUT  OPTION  *;DIRV 

2030  IF  (DIRV(l)  OR  <DIRV>3)  THEN  GOTO  1960 

2040  CLS  :  PRINT  :  PRINT  :  PRINT  :  PRINT 

2050  INPUT  'NAME  OF  SECTION  ",Z$ 

2060  ON  DIRV  SOTO  2070,  2110,  2070 
2070  PRINT 

2080  INPUT  "AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL  in  sq.  feet  =  "jAREAl 
2090  PRINT 

2100  INPUT  “AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL  in  sq.  feet  a  * ; AREA2 
2110  ON  DIRV  GOTO  2160,  2120,  2120 
2120  PRINT 
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2130  INPUT  'AREA  ON  GREEN  SIDE  OF  DOWNHJUND  VESSEL  lr.  sq.  feet  =  *  5  ARE  A3 
2140  PRINT 

2150  INPUT  ‘AREA  ON  RED  SIDE  DF  DOmBCUND  VESSEL  in  sq.  feet  =  *;AREA4 
2160  PRINT 

2170  I*«JT  "WIDTH  OF  HATER  SURFACE  in  feet  =  “  ;TW 

2180  OS  :  PRINT  :  PRINT  j  PRINT  :  PRINT 

2190  PRINT  *TH£  FOLLOWING  TWO  INPUT  PARAMETERS  ALLOW’ 

2200  PRINT  :  PRINT  * EXAMINATION  OF  THE  ICE  COVERED  CONDITION* 

2210  PRINT  :  PRINT  “ON  Tl£  SYSTEN.  INPUT  PERCENTAGE  OF  AREA" 

2220  PRINT  :  PRINT  "TAKEN  UP  BY  ICE  AS  A  DECIMEL  NJIJIPUER" 

2230  PRINT  :  PRINT  "OF  THE  TOTAL  AREA  OF  THE  SECTION.  INPUT" 

2240  PRINT  :  PRINT  "0  FOR  ICE  FREE  CONDITIONS." 

2250  PRINT  :  PRINT 

2260  INPUT  "PERCENTAGE  ICE  on  green  side  (oecieal  fore)  =  * ; 1 1 
2270  PRINT 

2290  INPUT  "PERCENTAGE  ICE  on  red  side  (deciaal  fore)  =  ";!2 
2290  r^((Il+I2)*(AREAl+AR£A2))/TH 
2300  0=1 

2310  C_S  1  PRINT  ;  PRINT  :  PRINT 
2320  0»  RED  GOT0  2320,  2350 

2330  PRIST  "INPUT  THE  NEARSHORE  CONFIGURATION  ON  THE  GREEN  SIDE"  : PRINT 
2340  GTO  2360 

2350  PRINT  "INPUT  THE  NEARSHORE  [^FIGURATION  ON  THE  RED  SIDE"  :PRINT 

2360  PRINT  “CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS"  :  PRINT 

2370  PRINT  1,  "OPEN  BLUFF  OR  ESCARPMENT*  ;  PRINT 

2380  PRINT  2,  "OPEN  SLOPING  BEACH"  :  PRINT 

2390  PRINT  3,  "SUBICRGED  HET. AMDS’  !  PRINT 

2400  PRINT  4,  "MANMADE  PROTECTION"  :  PRINT  :  PRINT 

2410  ON  RED  GOTO  2420,  2450 

2420  INPUT  "  INPUT  OPTION  ";NCG 

2430  IF  (NCG <1 )  OR  (NCG>4>  THEN  GOTO  2310 
2440  GOTO  2470 

2450  I#>UT  "  INPUT  OPTION  "{NCR 

2460  IF  (NCR <1 )  OR  <NCR>4)  THEN  SOTO  2310 
2470  CLS  :  PRINT  :  PRINT  :  PRINT 
2480  ON  RED  GOTO  2490,  2510 

2490  PRINT  "INPUT  THE  NEARSHORE  SOIL  TYPE  ON  THE  GREEN  SIDE*  : PRINT 
2500  GOTO  2520 

2510  PRINT  "INPUT  THE  NEARSHORE  SOIL  TYPE  W  Tl€  RED  SIDE"  :PR1NT 

2520  PRINT  "CHOOSE  ONE  OF  FOLLOWING  OPTIONS"  1  PRINT 

2530  PRINT  1,  "BOULDERS  AND/OR  COBBLES"  1  PRINT 

2540  PRINT  2,  "COARSE  TO  KDIUN  SAND"  s  PRINT 

2550  PRINT  3,  "NEDIUN  SAND  TO  SILT"  !  PRINT 

2560  PRINT  4,  "CLAY"  :  PRINT  1  PRINT 

2570  ON  RED  SOTO  2580,  2610 

2500  INPUT  "  INPUT  OPTION  ";SLG 

2590  IF  (SLG(l)  OR  <SLB>4)  THEN  GOTO  2470 

2600  GC'O  2630 

2610  INPUT  "  INPUT  OPTION  "jSLR 

2620  IF  (SLR(l)  OR  (SLR)4)  THEN  GOTO  2470 

2630  ON  RED  GOTO  2640,  2920 

2640  ON  SLS  GOTO  2650,  2680,  2710,  2740 

2650  *1=1.17  ;  MG2MOO 

2660  SL6R4=  "BOULDERS  AND/OR  COBBLES" 
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2670  6C*Q  2760 
2660  N61=.5  :  MG2=1! 

2690  SLSRi=’C0ARSE  TO  KDIJ!  SAND" 

2700  GCTO  2760 

2710  *1=.42  :  *2=.83 

2720  SlSR^'NEDIUN  SAND  TO  SILT" 

2730  60TG  2760 
2740  *1  =  100  :  MS2*100 
2750  SuS38="CU»Y* 

2760  ON  NCG  GOTO  2770,  2800,  2830,  2860 
2770  *5=1 

2780  NCSRi="OPEN  BLUFF  OR  ESCARPNENT' 

2790  6CT0  2880 
2800  *5=1 

2810  nCSR*=’OPEN  SLOPING  BEACH’ 

2820  GC'O  2880 
2830  *5=1 

2840  »XiH=’S08M£RGED  WETLANDS" 

2850  GC'O  2880 
2860  *5=1 

2870  *CSRi= ’HANNA  DE  PROTECTION" 

2880  irGl=*G»NGl 
2890  N52=*G*MG2 
2900  R£D=2 
2910  GCTO  2310 

2920  CS  SLR  GOTO  2930  ,  2960,  2990,  3020 

2930  HR1=1. 17  :  «R2=100 

2940  SLR£$= "BOULDERS  AND/CR  COBBLES" 

2950  GOTO  3040 
2960  HR1*. S  :  MR2=1! 

2970  SLREi=  "COARSE  ’0  NED I UN  SAND" 

2980  SCTQ  3040 

2990  *1=.42  :  «R2=.83 

3000  S.REi=’KEDIU«  SAW  TO  SILT' 

3010  GOTO  3040 
3020  NR1=100  :  NR2=100 
3030  SLRE*=*CLAY* 

3040  ON  NCR  GOTO  3050,  3080,  3110,  3140 
3050 

3060  NCREt=“OPEN  BLUFF  OR  ESCfiRP«E^fr, 

3070  GOTO  3160 
3080  NFR=1 

3090  WOO=’OPEN  SLOPING  BEACH’ 

3100  GCTO  3160 
3110  *R=1 

3120  tOE*=’SUMRBED  WETLANDS" 

3130  GCTQ  3160 
3140  *R=1 

3150  NCRE»=’NAfrADE  PROTECTION" 

3160  NR1=41FR*MR1 

3170  NR2=*R*NR2 

3180  CLS  :  PRINT  :  PRINT  j  PRINT 

3190  ON  DIRV  SOTO  3200,  3210,  3200 

3200  1N0JT  'DISTANCE  TO  UPBOUND  VESSEL  fro*  green  side  in  feet  =  *}P 
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3210  ON  DIRV  GOTO  3240,  3220,  3220 
3220  PRINT 

3230  INPUT  'DISTANCE  TO  DOWNBOUND  VESSEL  fro*  jreen  side  in  feet  *  *;P1 
3240  PRINT 

3250  INPUT  'VESSEL  BEAM  in  feet  =  *;B 
3260  PRINT 

3270  INPUT  'VESSEL  DRAFT  in  feet  *  ';D 
3280  PRINT 

3230  INPUT  'RIVER  VELOCITY  in  feet  per  sec.  =  'jVl 
3300  ON  DIRV  GOTO  3310,  3330,  3310 
3310  PRINT 

3320  INPUT  'UPfiOUND  (ESSEL  VELOCITY  in  feet  per  sec.  =  ';V2U 
3330  ON  DIRV  GOTO  3360,  3340,  3340 
3340  PRINT 

3350  INPUT  'DOWNBOUND  VESSEL  VELOCITY  in  feet  per  sec.  =  -;V2D 
3360  PRINT 

3370  INPUT  'DEPTH  AT  CENTER  CF  CHANNEL  in  feet  =  ”;Di 

3380  8=32. 2 

3330  ARE1=AREA1 

3400  ASE2=AREA2 

3410  ARE3*AR£A3 

3*20  ARE4^AREA4 

3430  ON  DIRV  GOTO  3440,  3720,  3440 
3440  as  :  PRINT  :  PRINT  :  PRINT  i  PRINT 

3450  PRINT  '  Wait . (STEADY  STATE  -  UPBOJffi)* 

3460  Y1=0' 

3470  TW1-P 
3480  CRITIM 
3490  PLACED 
3500  ftlNU=l 

3510  AREA1=AREA1-(I1*AREA1) 

3520  AREA2=AREA2- ( I2*AREA2) 

3530  YCl=(AREAl-((8»D)*(.5))-(< ((((V2U+Vl)*AREAl)A2)*TWl)/6)A(l/3) ))/TUl 
3540  TW2=TW-P 

3550  YC2= ( AREA2- ( (B*D)  *( . 5) )-(((( ( (V21HV1 ) »AREA2> *2) »TH2) /6) * ( 1/3) ) ) /TW2 
3560  A21=AREA1-(Y1*TW1)-((B*D)*(.5)) 

3570  IF  ( ( (V2U+V1 ) A2)*(AREA1A2> *(TV1- (8/2) ) ) / (6* (A21A3) )  >«  1  THEN  SOTO  4180 
3580  Y2U1*( (((V1+V2U)*AREA1)A2)/(((A21)A2)*2*G))-(<(V1«V2U)A2)/(2*G)) 

3590  IF  (Y2U1*D))D1  GOTO  4010 
3600  IF  (Y2UI-Y1) (.01  GOTO  3630 
3610  Y1*Y1+.  01 
3620  GOTO  3560 
3630  VI  =  O' 

3640  RUNU*2 

3650  A22=AREA2-(YlfT«M(8*D)*(.5>) 

3660  IF  (((V2U+vnA2)#(AREA2A2)#(TN2-(B/2)))/(6*(A22A3)>  >=  1  THEN  SOTO  4180 
3670  Y2U2= ( < ( <  VHV2U)*AR£A2) A2) / ( ( <A22)A2> *2*6) )-( ( (V1+V2U) A2) / (2*8) ) 

3680  IF  (Y2U2+DDD1  GOTO  4010 
3690  IF  (Y2U2-Y1 )  (.  01  SOTO  3720 
3700  Y1=Y1+.  01 
3710  GOTO  3650 
3720  Y1=0! 

3730  ON  DIRV  GOTO  4540,  3740,  3740 
3740  PLACE =2 


115 


5750  CRID=1 
3760  RUND=1 

5770  ClS  :  PRINT  :  PRINT  :  PRINT  :  PRINT 

3760  PRINT  *  Wait . (STEADY  STATE  -  D0UNB0UND)" 

5790  TW3=P1 

3200  AREA3=AREA3-<I1*AR£A3) 

3810  AR£A4=AREA4-(I2*AREA4) 

3820  YC3=(AREA3-((B*D!*(.5) )-<((( ((V2D-V1)*A RE A3)A2)«TU3)/G)A( 1/3)) )/TW3 
3830  TW4=TW-P1 

3840  YC4= ( AREA4- ( (B*D> *(. 5) )-((<( ( (V2D-V1 ) *AREA4)A2) *’W4 ) /S> '( 1/3) ) ) /TW4 
3850  AIl=AREA3-(YI*TW3)-( (8«0)*<.5)) 

3860  IF  ( ( (V2D-V1) A2)*(AREA3'2) *(TW3- (B/2) ) ) / (S* (All '3) )  >=  1  THEN  GOTO  4180 
3870  Y2D1=( (( (V2D-V1)*ARFA3)A2)/ ( ( (All) A2) *2*G) ) — < ( (V2D-V1)A2)/!£«G! ) 

3880  IF  (Y2D1+DDD1  GOTO  4010 

3890  IF  (Y2D1-Y1)  (.01  GOTO  3920 

3900  Y1=Y1+.  01 

3910  GOTO  3850 

5920  Y1=C 

3930  fOC'=£ 

3940  012-ARE A4- ( Y1 *TW4) -< (B»D) *(.5)) 

3950  IF  ( ( (V2D-V1) '2)*(AREA4A2)*(TW4-(B/2)) )/(6*(A12'3) )  )=  1  THEN  GOTO  4180 
3960  Y2D2=((((V2D-V1)»AREA4)'2)/(((A12)A2)*2«€))-(((V2D-Y1)A2)/(2*G)) 

3970  IF  (Y2D2+D))D1  GOTO  4010 

3980  IF  (Y2D2-Y1)  (.01  GOTO  4540 

3990  Y 1 = Y I  ♦.  01 

4000  GOTO  3940 

4010  ClS: PRINT : PRINT 

4020  ON  PLACE  GOTO  4030,  4050 

4030  PRINT  ‘THE  PARAMETERS  INPUT  FOR  THE  UPBOUND  VESSEL  * 

4040  GOTO  4070 
4050  ClSiPRINT :PRINT 

4060  PRINT  ’THE  PARAMETERS  INPUT  FDR  T)€  DOWNBOUND  VESSEL  * 

4070  PRINT: PRINT  “CREATE  A  DRAWDOWN  LARGE  ENOUGH* 

4080  PRINT :PRINT  *T0  GROUND  THE  VESSEL.  THE  DRAWDOWN* 

4090  PRINT: PRINT  “ADDED  TO  THE  DRAFT  IS  GREATER  THAN* 

4100  PRINT :PRINT  *THE  DEPTH  IN  THE  CENTER  OF  T)€  CHANfCL. PRINT:  PRINT 
4110  ON  PLACE  GOTO  4120,  4150 

4120  INPUT  “DO  YOU  WANT  TO  CHANGE  ANY  PARAfCTERS  (Yes/No)  *;A« 

4130  IF  LEFT*(A»,1)  «  *Y*  OR  LEFTKAi,  1)  -  *y*  TIEN  SOTO  5970 
4140  GOTO  3720 

4150  INPUT  “DO  YOU  WANT  TO  CHANGE  ANY  PARAMETERS  (Yes/No)  *jftl 

4160  IF  LEFTKAt,  1)  »  *Y*  OR  LEFTtIM,  1)  *  *y*  TIEN  GOTO  5970 

4170  GOTO  4540 

4180  aS:PRINT:PRINT 

4190  ON  PLACE  GOTO  4200,  4250 

4200  PRINT  *Tt€  PARAMETERS  INPNJT  FOR  THE  UPBOUND  VESSEL* 

4210  PRINT  :  PRINT  “HAVE  FORCED  THE  FLOW  TO  GO  CRITICAL" 

4220  F 1 =YC1 
4230  F2=YC2 

4240  ON  RUNU  GOTQ  4310,  4330 
4250  CLS:PRIVT :PRINT 
4260  F1=YC3 
4270  F2=YC4 

4280  PRINT  “THE  PARAJETERS  INPUT  FOR  THE  DOWNBOtUD  VESSEL* 
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4290  PRINT  :  PRINT  "HAVE  -ORCED  THE  FLOW  TO  SO  CRITICAL" 

4300  ON  SUM)  GOTO  4310,  4330 

4310  PRINT  :  PRINT  'ON  THE  GREEN  SIDE,* 

4320  SOTO  4340 

4330  PRINT  :  PRINT  *0N  THE  RED  SIDE." 

4340  PRINTiPRINT  'TIE  STEADY  STATE  MODEL  DOG  NOT  APPLY* 

4350  PRINT  :  PRINT  *B£YONO  THIS  POINT. * 

4360  PRINT  :  PRINT  ‘THE  PROBABILITY  FOR  DAMAGE  IS  SEVERE.* 

4370  PRINT  :  PRINT 

4380  ON  PLACE  GOTO  4390,  4450 

4390  CRITU=2 

4400  ON  RUMJ  SOTO  4410,  4430 

4410  PRINT  USING  ‘CRITICAL  DRAWDOWN  on  the  green  side  (ft)  =  #.##  *;Fl  :  PRINT  : 
PRINT 

4420  SOTO  4500 

4430  PRINT  USING  'CRITICAL  DRAWDOWN  on  the  red  side  (ft)  *  #.##  *;F2  :  PRINT  :  P 
RINT 

4440  6OT0  4500 
4450  CRITD=2 

4460  ON  (UNO  GOTO  4470,  4490 

4470  PRINT  USING  'CRITICAL  DRAWDOWN  on  the  green  side  (ft)  =  •.##  *;F1  :  PRINT  : 
PRINT 

4480  SOTO  4500 

4490  PRINT  USING  'CRITICAL  DRAWDOWN  on  the  red  side  (ft)  =  «.#t  *;F2  :  PRINT  :  P 
RINT 

4500  PRINT 

4510  INPUT  'DO  YOU  WANT  TO  CHANGE  ANY  PARAMETERS  (Yes/No)  "jft* 

4520  IF  LEFT$(A$,  1)  *  *Y*  OR  LEFT*(A*,1)  *  *y*  THEN  GOTO  5%0 

4530  IF  PLACE=1  THEN  GOTO  3720  ELSE  GOTO  4540 

4540  CLS  :  PRINT  :  PRINT  :  PRINT 

4550  ON  DIRV  GOTO  4560,  4850,  4560 

4560  IF  (Y2U1+DDD1  GOTO  4590 

4570  IF  (Y2U2+DDD1  GOTO  4590 

4560  GOTO  4610 

4590  PRINT  'UPBOUND  VESSEL  IS  6R0UWED.*  :  PRINT 
4600  GOTO  4630 

4610  PRINT  USING  ’  DRAWDOWN  OF  UPBOUND  VESSEL  on  the  green  side  (ft)  =  #.##* 
;Y2U1 

4620  PRINT  USING  *  DRAWDOWN  OF  UPBOUND  VESSEL  on  the  red  side  (ft)  ■  «.«•  *;Y 
2U2  :  PRINT 

4630  PRINT  USING  *  CRITICAL  DRAMOOIK  on  the  green  side  (ft)  *  «.«t  -;YC1 

4640  PRINT  USING  *  CRITICAL  DRAWDOWN  on  the  red  side  (ft)  *  #.##  *;YC2 

4650  IF  Y2U1 (NG1  GOTO  4690 
4660  IF  Y2U1 (M62  GOTO  4710 
4670  DAMGUt= 'SEVERE" 

4660  GOTO  4720 

4690  DCMGUt='NON£  TO  LIGHT' 

4700  GOTO  4720 
4710  DAMGLM= 'MODERATE'1 
4720  IF  Y2U2  (MR1  GOTO  4760 
47 X  IF  Y2U2(MR2  GOTO  4780 
4740  DAMRL1**"SEVERE* 

4750  GOTO  4790 

4760  DAMRUt=*NONE  TO  LIGHT' 
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4770  sera  4790 
4780  DAKRU$="MCD£RATE* 

4790  PRINT  -.PRINT  “  DAMAGE  PROBABILITY  GREEN  IS  *;DAMGU« 

4800  PRINT  :PRINT  *  DAMAGE  PROBABILITY  RED  IS  'jDAMRUI 

4810  ON  DIRV  S0"0  5130,  4830,  4820 
4820  PRINT  :  PRINT 

4830  PRINT  ■  HIT  SPACE  BAR  FOR  DOWNEOUND  RESULTS' 

4840  Q*=INK£Y$:IF  Q$0'  '  THEN  G0T0  4840 
4850  OS  :  PRINT  :  PRINT  :  PRINT 
4860  OK  DIRV  GOTQ  5140,  4870,  4870 
4870  IF  (Y2D1+D) )D1  GOTO  4900 
4880  IF  (Y£D2+D))D1  GOTO  4900 
4890  GO^O  4920 

4900  PRINT  "DOWN BOUND  VESSEL  IS  GROUNDED.*  :  PRINT 
4910  GO  4940 

4920  PRINT  USING  "  DRAWDOWN  OF  DOWNBOUND  VESSEL  on  the  green  side  (ft)  -t.it 
Y2D1 

4930  PRINT  USING  *  DRAWDOWN  OF  DGWNBOUND  VESSEL  on  the  red  side  (ft)  =  ».*«  * 
;Y2D2  :  PRINT 

4940  PRINT  USING  "  CRITICAL  DRAWDOWN  on  the  green  side  (ft)  =  l.tt  *;YC3 

4950  PRINT  USING  '  CRITICAL  DRAWDOWN  on  the  red  side  (ft)  =  t.tt  ';YC4 

4960  IF  Y2D1 (MG1  GOTO  5000 

4970  IF  Y2D1 (MG2  GOTO  5020 

4980  DAH6D*= 'SEVERE" 

4990  GCTO  5030 

5000  DAK6D«='N0NE  TO  LIGHT' 

5010  GOTO  5030 
5020  DAH6Dt= 'MODERATE " 

5030  IF  Y2D2(MR1  GOTO  5070 

5040  IF  Y2D2(MR2  GOTO  5090 

5050  DAMRDS=”SEVERE" 

5060  GOTO  5100 

5070  OAKRD*>'NONE  TO  LIGHT- 

5080  GOTO  5100 

5090  Df*tRDi='MODERATE" 

5100  PRINT  : PRINT  '  DAMAGE  PROBABILITY  GREEN  IS  '(DAMS)* 

5110  PRINT  :PR1NT  '  DAMAGE  PROBABILITY  RED  IS  'jDAMRD* 

5120  PRINT 

5130  PRINT  *  HHHHHHHHHHHHHHfiHHHHHHHHHHH' 

5140  PRINT iPRINT 

5150  IWVT  *D0  YOU  WANT  A  HARO  COPY  (Yes/NoJ'fA* 

5160  IF  LEFT*(A*,1)  =  *Y*  OR  LEFTKAt,!)  =  'y'  THEN  GOTO  5180 
5170  GOTO  5190 
5180  GOSUB  5230 
5190  PRINT iPRINT 

5200  If«JT  'DO  YOU  WANT  TO  TRY  0T>€ R  DATA  (Yes/No)*jA* 

5210  IF  LEFT*(A$,1)  =  *Y'  OR  L£FT*(Ai,l)  =  'y'  THEN  GOTO  5960 
5220  RETURN  :  REM  FROM  CALCULATING  DRAWDOWNS 
5230  REM 

5240  REM  SEND  OUTPUT  TO  PRINTER 
5250  REM 

5260  CIS  :  PRINT  »  PRINT  :  PRINT 

5270  PRINT  'PUT  PRINTER  ON  LINE'  :  PRINT  s  PRINT 

5280  PRINT  'HIT  SPACE  BAR  TO  CONTINUE." 
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5290  .'NKEY*: IP  <M<>  *  *  THEN  SOTO  5290 
5300  .PR:vT;lPRIOT;LPRINT:LPR1NT:lPR1NT 
53io  .print  " 

5320  LPRINT 

5330  '.PRINT  *  NflflE  OF  SECTION  *,Z* 

5340  .PRINT 

5350  L PRINT  •  :  LPRIMT 

5360  CM  DIRV  GOTO  5370,  5390,  5370 

5370  .PRINT  *  AREA  ON  BREEN  SIDE  OF  UPBOUND  VESSEL  <sq.  ft)  =  *,ARE1 
5380  lPRINT  ■  AREA  CM  RED  SIDE  OF  UPBGUND  VESSEL  <sq.  ft)  =  ’,  ARE2 
5390  DN  DIRV  G0T0  5420,  5400,  5400 

5400  LPRINT  *  AREA  ON  GREEN  SIDE  OF  DOUNBOUNO  VESSE.  <sq.  ft)  =  *,  ARE3 

5410  .PRINT  ■  AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL  <sq.  ft)  =  “,ARE4 

5420  lPRINT  *  NEARSHORE  GREEN  -  “,NCSRt 

5430  LPRINT  *  SOIL  TYPE  GREEN  -  “.SlGR* 

5440  LPRINT  •  NEARSHORE  RED  -  \NCRE* 

5450  LPRIMT  ■  SOIL  TYPE  RED  -  “,SLR£* 

5460  .PRINT  *  PERCENTAGE  ICE  on  green  sice  (deciul  form)  =  ',11 

5470  .PRINT  *  PERCENTAGE  ICE  or.  red  side  (decieal  fore)  =  “,  12 

5480  .PRINT  '  WIDTH  OF  WATER  SURFACE  (ft)  =  *,TW 

5490  ON  DIRV  GOTO  5500,  5510,  5500 

5500  .PRINT  '  DISTANCE  TO  UPBOUND  VESSEL  fro*  green  sice  (ft)  =',P 
5510  ON  DIRV  GOTO  5530,  5520,  5520 

5520  LPRINT  '  DISTANCE  TO  DOWNBGUND  VESSa  fro*  green  side  (ft)  =*,P1 

5530  LPRINT  *  VESSa  BEAN  (ft)  *  \B 

5540  LPRINT  ■  VESSa  DRAFT  (ft)  =  *,D 

5550  LPRINT  *  RIVER  VaOCITY  (ft  per  sec.)  =  *,V1 

5560  ON  DIRV  GOTO  5570,  5580,  5570 

5570  '.PRINT  ■  UPBOUND  \ESSa  VELOCITY  (ft  per  sec.)  =  *,VZU 
5580  ON  DIRV  GOTO  5600,  5590,  5590 

5590  LPRINT  “  DORN  BOUND  VESSa  VELOCITY  (ft  per  sec. )  =  *,V2D 
5600  LPRINT  *  DEPTH  AT  CENTER  OF  CHANEL  (ft)  =  ',D1  :  lPRINT 
5610  LPRINT 

5620  LPRINT  !  L 

PRINT 

5630  ON  DIRV  GOTO  5640,  5780,  5640 

5640  IF  ( Y2U1+D) >  D1  GOTO  5670 

5650  IF  (Y2U2+0))D1  BOTO  5670 

5660  IF  CRITIC  GOTO  5710  aSE  BOTO  5690 

5670  LPRINT  'UPBOUND  VESSa  IS  6R0UNDED.  *  s  LPRINT 

5680  BOTO  5710 

5690  LPRINT  USING  'DRAWDOWN  OF  UPBOUND  VESSEL  or,  the  green  side  (ft)  =  #.##  "jY 
2U1 

5700  LPRINT  USING  'DRAWDOWN  OF  UPBOUND  VESSa  on  the  red  side  (ft)  =  t.tt  ';Y2U 
2  :  LPRINT 

5710  LPRINT  USING  'CRITICAL  DRAWDOWN  on  the  green  side  (ft)  =  #.##  ';YC1 
5720  LPRINT  USING  'CRITICAL  DRAWDOWN  on  the  red  side  (ft)  *  l.l#  'jYC2 
5730  LPRINT  SPRINT  'PROBABLE  DAMAGE  BREEN  SIDE  =  *}DAMeU» 

5740  LPRINT  "PROBABLE  OANAGE  RED  SIDE  =  'jDAKRU* 

5750  ON  DIRV  SOTO  5900,  5760,  5760 
5760  LPRINT 

5770  LPRINT  ‘hjmhhhhhhhhhhhhhhhhhhhhhhhhhhhhi'  :  L 
PRINT 

5790  IF  (Y2D1+D)>D1  BOTD  5810 
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5790  Ic  IY2D2*D))D1  GOTO  5810 

5800  IF  CRITfc2  GOTO  5660  ELSE  GOTO  5640 

5610  LPRINT  ‘DOWNBOUKD  VESSEL  IS  GROUNDED.*  :  LPRINT 

5620  GOTO  5860 

5830  GOTO  5700 

5640  LPRINT  USING  "DRAWDOWN  OF  DOWEOUND  VESSEL  on  the  green  side  (ft)  *  «.M  * 
;Y2D1 

5650  LPRINT  USING  "DRAWDOWN  OF  DOWBOUND  VESSEL  on  the  red  side  (ft)  •  ».#*  *;Y 
202  s  LPRINT 

5660  LPRINT  USING  ‘CRITICAL  DRAWDOWN  on  the  green  side  (ft)  «  «.#♦  *;YC3 
5870  LPRINT  USING  “CRITICAL  DRAWDOWN  on  the  red  side  (ft)  *  ».*•  *;YC4 
5660  LPRINT  iLPRINT  * PROBABLE  DAMAGE  GREEN  SIDE  *  ";DAK8M 
5890  LPRINT  "PROBABLE  DAMAGE  RED  SIDE  *  *;DAMRD6 
5900  LPRINT 

5910  iPRINT  "HHHHHHHHHHHHHHHHIHHHHHmtHHHHHHtM' 

5920  CLS: PRINT  iPRINTiPRINT 

5930  INPUT  *  DO  YOU  WANT  A  ANOTHER  COPY  (Yes/No) 

5940  IF  LEFT$(A$,1)  -  *Y*  OR  lEFT*(A$,l)  =  *y*  THEN  G0"0  5230 
5950  RETURN  :  REN  FROM  PRINTING  OUTPUT 
5960  REN 

5970  REN  TO  CHANGE  DATA 

5960  REN 

5990  AREA1=ARE1 

6000  AREA2=ARE2 

6010  AR£A3=AR£3 

6020  AREA4=ASE4 

6030  CuSsPRINTiPRINT iPRINT 

6040  PRINT  "THE  FOLLOWING  ICNU  ALLOWS  FOR  CHANGES  IN  DC  DATA  JUST  RUN* 

6050  PRINT iPRINT 

6060  PRINT  'INPUT  OPTION  •  OF  PARAMETER  YOU  WANT  TO  CHANGE.* 

6070  PRINT iPRINT 

6080  PRINT  "THE  OPTIONS  ARE  BROKEN  INTO  2  LISTS* 

6090  PRINT iPRINT 

6100  PRINT  *OPTION  'O’  WILL  RECALCULATE  DC  DRAWDOWS  WITH  THE  NUMBERS  CHANGED* 
6110  PRINT iPRINT 

6120  PRINT  'HIT  SPACE  BAR  TO  CONTINUE." 

6130  W=INK£Y$:IF  WO*  *  THEN  GOTO  6130 

6140  as 

6150  PRINT 

6160  PRINT  0,  ‘RECALCULATE  DRAWDOWNS  MIDI  DATA  CHANGED* 

6170  PRINT 

6160  PRINT  1,  ‘AREA  ON  6REEN  SIDE  OF  UP80UND  VESSEL" 

6190  PRINT 

6200  PRINT  2,  "AREA  ON  RED  SIDE  OF  UPBOUND  VESSEL" 

6210  PRINT 

6220  PRINT  3,  ’AREA  ON  GREEN  SIDE  OF  DOtffflOUND  VESSEL" 

6230  PRINT 

6240  PRINT  4,  'AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL" 

6250  PRINT 

6260  PRINT  5,  "PERCENTAGE  ICE  ON  BREEN  SIDE" 

6270  PRINT 

6280  PRINT  6,  * PERCENTAGE  ICE  ON  RED  SIDE" 

6290  PRINT 

6300  PRINT  7,  "DISTANCE  TO  UPBOLND  VESSEL" 
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6310  PRINT 

6320  PRINT  8,  'DISTANCE  TO  DOWNBOUND  VESSEL' 

6330  PRINT 

6340  PRINT  9,  'SECOND  LIST  OF  INPUT  DATA" 

6350  PRINT: INPUT  •  OPTION  •  '{OPT 

6360  IF  OPT  =  0  T)€N  SOTO  6420 
6370  IF  0PT=9  T>€N  SOTO  6430 

6380  IF  (OPT  <1)  OR  (OPT) 9)  THEN  PRINT  ’BAD  OPTION  I  *  :  GOTO  6030 

6390  CIS sPRINT: PRINT: PRINT: PRINT:PRINT 

6400  ON  OPT  SOSUS  6690,6720,6750,6730,6810,6830,6870,6890,6430 

6410  GOTO  6140 

6420  SOTO  3380 

6430  CLS  sPRINT 

6440  PRINT  0,  'RECALCULATE  DRAWDOWNS  WITH  DATA  CHANGED* 

6450  PRINT 

6460  PRINT  1,  'WIDTH  OF  HATER  SURFACE’ 

6470  PRINT 

6480  PRINT  2,  "VESSEL  BEAN' 

6490  PRINT 

6500  PRINT  3,  'VESSEL  DRAFT' 

6510  PRINT 

6520  PRINT  4,  'RIVER  VELOCITY" 

6530  PRINT 

6540  PRINT  5,  ’UPBOIM)  VESSEL  VELOCITY* 

6550  PRINT 

6560  PRINT  6,  'DOWNBOUND  VESSEL  VELOCITY* 

6570  PRINT 

6580  PRINT  7,  'DEPTH  AT  CENTER  OF  CHAM€L' 

6590  PRINT 

6600  PRINT  8,  'FIRST  LIST  OF  INPUT  DATA' 

6610  PRINT: INPUT  *  OPTION  •  *;OPT 

6620  IF  0PT=O  THEN  GOTO  6420 
6630  IF  0PT*8  THEN  SOTO  6140 

6640  IF(OPTU)  OR  (OPT) 8)  THEN  PRINT  'BAD  OPTION  I’sSOTO  5330 
6650  CLS 

6660  PRINT  sPRINT  sPRINT  iPRIMT sPRINT 

6670  ON  OPT  GOSUB  6850,6910,6930,6950,6970,6990,7010,6140 

6680  GOTO  6140 

6690  PRINTsINPUT  ‘AREA  ON  GREEN  SIDE  OF  UPBOUffl  VESSEL  in  sq.  ft.  «  'jAREAl 
6700  AR£l=AR£Al 
6710  RETURN 

6720  PRINT sIWNJT  'AREA  (M  RED  SIDE  OF  UPBOUND  KSSEL  in  sq.  ft.  ■  '{AREA2 
6730  ARE2=AREA2 
6740  RETURN 

6750  PRINT : INPUT  'AREA  ON  GREEN  SIDE  OF  DOWBOUND  VESSEL  in  sq.  ft.  >  *;AREA3 
6760  ARE3=AR£A3 
6770  RETURN 

6780  PRINTsINPUT  'AREA  ON  RED  SIDE  OF  DOUNBOIKD  VESSEL  in  sq.  ft.  =  *;AREA4 
6790  AR£4=AREA4 
6800  RETURN 

6810  PRINTsINPUT  'PERCENTAGE  ICE  on  the  green  side  (deciul  fore)  =  ‘;I1 
6820  RETURN 

6830  PRINTsINPUT  'PERCENTAGE  ICE  on  the  red  side  (decisal  fore)  >  '{12 
6840  RETURN 
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6850  PL  NT  .-INPUT  "WIDTH  OF  WATER  SURFACE  in  feet  =  ";TW 
6860  RTTJRN 

6870  NT : IMPbT  'DISTANCE  TO  UPBOUND  VESSEL  free  green  side  in  feet  *  *;P 
6880  RETJRN 

6830  PRINT ; INPUT  "DISTANCE  TO  DOWNBOUND  VESSa  fro*  green  side  in  feet  =  -;P1 
6300  RETURN 

6910  P=RINT ; INPUt  "VESSEL  BEAN  in  feet  =  *;B 
6360  RETURN 

6930  PRINT  .-INPUT  "VESSEL  DRAFT  in  feet  =  *;D 
6940  RETJRN 

6950  PRINT : INPUT  "RIVER  VELOCITY  in  feet  per  sec.  *  *;V1 
6960  RETURN 

6970  PRINT: INPUT  'UPBOUND  VESSEL  VELOCITY  in  feet  per  sec.  =  *;V2U 

6960  RETURN 

6990  PR  I  NT;  INPUT  "DOWNBOUND  VESSa  VELOCITY  in  feet  per  sec.  =  ";V£D 

7000  RE  URN 

7010  P R I VT : I NPUT  “DEPTH  AT  CENTER  OF  CHANNEL  in  feet  =  “;Dl 
7020  RETURN 
7030  RE* 

7040  RE*  PRINT  AREA  CALCULATION  OUTPUT 
7050  REN 

7060  US  :  PRINT  :  FniNT  :  PRINT 

7070  PRINT  "PUT  PRINTER  ON  LINE"  :  PRINT  :  PRINT 

7080  PRINT  "HIT  SPACE  EAR  TO  CONTINUE." 

7090  Ot- INkEYS: IF  0*0  ‘  "  THEN  GOTO  7090 

7100  L  PR  1NT:LPRINT  .-LPRINT:  LPRINT  iLPRIVTslPRINT sLPRINTsLPRINT :LPRINT:LPRINT 

/no  .print  ■  - 

7120  LPRINT  "  NAME  OF  SECTION  ’jHEAD*  :  L PRINT 
7130  LPRINT 

7140  LPRINT  USING  “  WATER  SURFACE  aEVATION  in  feet  =  I#**.*#  "jWS 

7i5o  lprint  ’  lprint 

7160  LPRINT  "  DISTANCE  TO  UPBOLMO  VESSa  fro*  green  side  in  feet  =  ";DC(1> 

:  LPRINT 

7170  .^RINT  "  DEPTH  AT  CENTER  OF  UPBOUND  VESSa  in  feet  »  -;D5  :  LPRINT 

7160  .PRINT  "  DISTANCE  TO  DOWNBOUND  VESSa  fro*  green  side  in  feet  =  *jDC(2) 

:  LPRINT 

7190  LPRINT  "  DEPTH  AT  CENTER  OF  DOWNBOUND  VESSa  in  feet  =  a;K  :  LPRINT 

7200  LPRINT  USING  "  TOTAL  AREA  OF  SECTION  in  sq.  feet  «  #*#***. '{TAREA  i  LPR 

INT 

7210  LPRINT  USING  *  AREA  ON  WEEN  SIDE  OF  UPBOUND  VESSa  in  sq.  feet  *  ***** 
#.  ’jAREAldl  :  LPRINT 

7220  LPRINT  USING  *  AREA  CN  RED  SIDE  OF  UPBOUND  VESSa  in  sq.  feet  =  ****««. 
■jAREA2(l>  s  LPRINT 

7230  LPRINT  USING  "  AREA  ON  SREZN  SIDE  OF  DQWBOUND  VESSa  in  sq.  feet  *  tit 
**#.  "  ;AREA1  (21  :  LPRINT 

7240  LPRINT  USING  ‘  AREA  ON  RED  SIDE  OF  OOVNBOUND  VESSa  in  sq.  feet  =  ***** 
*.  TAKLA2I2)  :  LPRINT 

7250  .PRINT  USING  *  WIDTH  OF  WATER  SURFACE  in  feet  =  t**!«*.t  "jTW  :  LPRINT 

:  LPRINT 

7260  ClSiPSINT :  PRINT iPRINT 

72/0  INPUT  “DO  YOU  WANT  A  ANOTHER  COPY  (Yes/No) *jA* 

7280  IF  L£FT*!A*,1)  =  "Y"  OR  LEFT*(A*,1)  *  *y‘  THEN  GOTO  7040 
7290  GOTO  1840 

7300  C.  S  :  PRINT  ;  PRINT  ;  PRINT 
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7310  RE» 

7320  REX  PERFORM  LINEAR  REGRESSION 
7330  REN 

7340  CIS  :  PRINT  :  PRINT  :  PRINT 

7350  PRINT  ‘THIS  RGUTIfC  ALLOWS  FOR  CALCULATION  OF  THE*  :  PRINT 
7360  PRINT  'COEFFICIENT  OF  EXTINCTION  OF  LIGHT  WITH  *  !  PRINT 
7370  PRINT  'DEPTH  FOR  STORED  LIGHT  METER  DATA.  IT  WILL*  :  PRINT 
7380  PRINT  ‘ALSO  PLOT  T*  RESULTS  ON  THE  SCREEN  OR  ON*  :  PRINT 
7390  PRINT  'THE  PLOTTER  IF  PROMPTED. "  :  PRINT  j  PRINT 
7400  PRINT  'PUT  DATA  DISK  IN  DRIVE  »B\' 

7410  PRINT:PRINT 

7420  PRINT  'HIT  SPACE  SAR  TO  CONTINUE. * 

7430  Qi=INKEYi:IF  0*0  *  '  THEN  SOTO  7430 
7440  CLS  :  PRINT  :  PRINT  :  PRINT 
7450  INPUT  '  FILE  NAffi? 

7460  ii  =  ■Bs*  +  B» 

7470  OPEN  B$  FOR  INPUT  AS  1 
7480  INPUT  *1,  TEAM 
7490  PRINT  :  PRINT  HEAD* 

7500  INPUT  *1,  t£AD2* 

7510  PRINT  "DISTANCE  =  ',HEAD2* 

7520  INPUT  II,  CHR 

7530  PRINT  'OVERHEAD  READING  =  ",OHR 

7540  INPUT  *1,  ITH 

7550  PRINT  'ICE  THICKNESS  *  *,ITH 

7560  INPUT  #1,  HJS 

7570  PRINT  'READING  UNDER  SURFACE  *  “,RUS 
7580  1=0 

7590  INPUT  «1VX(I)I VIZ> 

7600  PRINT  I+l5*.  “ jX(I) -;Y<I) 

7610  IF  EOF(l)  GOTO  7640 
7620  1=1+1 
7630  GOTO  7590 

7640  PRINT  :  PRINT  ■  END  OF  DATA  FILE  'jB*  :  PRINT 
7650  INPUT  'ARE  DATA  CORRECT  <Y/N)’;A» 

7660  MD= I  :  CLOSE  #1 

7670  IF  L£FT$(A$,1)  »  *N*  OR  LEFT!  (At,  1)  «  'n'  THEN  GOTO  7300 
7680  REN 

7690  SEN  MAIN  PROGRAM 
7700  HEN 

7710  CLS  s  PRINT  :  PRINT  j  PRINT  j  PRINT 

7720  PRINT  •  Wait . 

7730  SX=0  s  SY*0  :  SXX=0  !  SXY*0  !  SYY*0  j  SDD*0 
7740  1=0 

7750  IF  Y(I)=0  GOTO  7790 

7760  IF  I=ND  GOTO  7800 

7770  1=1+1 

7780  6CTQ  7750 

7790  ND=I-1 

7800  N=ND 

7810  FOR  1=1  TO  ND 

7820  IF  Y(I) =0  GOTO  7840 

7830  GOTO  7850 

7840  Y(I)=.05 
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7850  YU>=<L06iY<I)/RLS>)«(-:) 

7860  SX=SX*XU) 

7870  SY=SY+y (I) 

7880  SXX=SXX+XU)*X(I) 

7890  SXY=SXY+X(I)*Y (I) 

7900  SYY=SYY+Y(I)*YC) 

7910  XEXT  1 

7920  DETER-N*SXX-SX*SX 

7930  IF  DETER=0  THEN  PRINT  “DETER  =  0  -  PROGRAM  STOPPED1  :  GOTO  7950 
7940  GOTO  7980 

7950  INPUT  “DO  YOU  WANT  TO  TRY  OMR  DATA  (Y/N)  *;A* 

7960  IF  IEFT*(A$,  1)  =  *Y*  OR  LEFT*(A*,1)  =  ‘y1  THEM  SOTO  7340 
7970  GOTO  9080 

7980  A1=(SXX*SY-SXY*SX)/0ET£R 
7990  flc-  (N*SXY-SX*SY) /DETER 
6000  F3R  Id  TO  NC 
8010  YP(I)*A1+«*X(I> 

8020  R  < I ) =Y  < I ) -¥P ( I > 

8030  SDD=SDIHRd)*R(I) 

8040  NEXT  I 
8050  V=SDD/ (N-2) 

8060  VA1 1=V*S1X/DETER 
8070  V^2=V*N/C£TER 
8080  Vfi'.2=-V*SX /DETER 
8090  SAl  =SQR-'Vftl  1) 

8100  SA2=SQR(VP22) 

8110  SSX=SXX-SX*SX/N 
8120  SSY=SYY-SY»SY/N 
8130  SSXY=SXY-SX«SY/N 
8140  COV=SSXY/N 
8150  COR=SSXY/  ( (SSXtSSY)  \  5) 

8160  SrOEV=(ABS<SYY-A2#SY-Al*SXY)/<N-2>r.5 
8170  CLS: PRINT  : PRINT  .-PRINT 
8180  GOTO  8240 

8190  PRINT  :  PRINT  ‘mi  X  ««  ««  In  R/Riax  «*  *t«  YP  ****  ♦«*  YP-Y  #♦»" 

8200  PRINT 

8210  FOR  1=1  TO  ND 

8220  PRINT  TAB(4);X(I)iTA8(l6)  jY(I)  ;TAB(33)jYPU);TAB(49);R(I) 

8230  NEXT  I 

8240  PRINT  :  PRINT  USING  *  Ke  «*.###■;(£ ) 

8250  PRINT  USING  *  ♦/-  •.«««* ;SA2 

8260  PRINT  : PRINT  -.PRINT  1  I4J48ER  OF  DATA  «  *|N 

8270  PRINT  : PRINT  -.PRINT 

8280  PRINT  : PRINT  :PRINT  1  END  OF  DATA  ANALYSIS.  HIT  ANY  KEY  CONTINUE" 

8290  IF  INKEY*  =  ""  THEN  SOTO  8290 
8300  PUM 
8310  XNAX=X<1) 

8320  YMAX=Y<1) 

8330  FOR  1=1  TO  ND 

8340  IF  X(I)  >  XNAX  MN  XMAX=X(1> 

8350  IF  Y(I)  )  YNAX  THEN  YMAX=Y(I) 

8360  IF  vp(l)  )  YNAX  THEN  YNAX=YP(I) 

8370  ICX-  I 

8380  Cl  S : PRINT :PRINT : PRINT 
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a390  INPUT  *D0  YOU  WANT  RESULTS  PLOTTED  ON  Tr€  SCREEN  (Y/N)  "jA< 
3400  IF  LEFT4(A$,  1)  *  "Y"  OR  LEFTKAI,  1)  *  *y‘  NO  SOTO  6430 
8410  SOTO  9050 
8420  REN 

3430  SOI  PlOT  DATA 
8440  REN 
8450  CLS 
8460  KEY  OFF 
8470  SCREEN  1 
8480  COLOR  0,3 
8490  PL 0=2 
8500  PS£T(44,4), 1 
8510  FOR  Z=1  TO  10 
8520  DRAW  "13  R3  016' 

8530  NEXT  Z 

8540  DRAW  "L3  R3  D3  J3" 

8550  FOR  Z=1  TO  10 
8560  DRAW  “R22  D3  U3" 

8570  NEXT  Z 

8580  FOR  Z=1  TO  10 

8590  DRAW  “R3  L3  UI6" 

8600  NOT  Z 

8610  DRAW  "R3  L3  U3  D3" 

8620  FOR  Z=1  TO  10 
8630  DRAW  "L22  U3  D3* 

8640  NEXT  Z 

8650  LOCATE  1,3  :  PRINT  "1.0" 

8660  LOCATE  5,3  :  PRINT  "0.8" 

8670  LOCATE  9,3  :  PRINT  "0.6“ 

8680  LOCATE  13,3  s  PRINT  "0.4" 
e690  LOCATE  17,3  :  PRINT  "0.2" 

8700  LXATE  21,3  :  PRINT  "0.0" 

8710  LOCATE  7, 1  :  PRINT  "R" 

8720  LOCATE  8, 1  :  PRINT  "D" 

0730  LOCATE  9, 1  s  PRINT  "6" 

8740  LOCATE  10,1  :  PRINT  */" 

8750  LOCATE  11,1  i  PRINT  "R‘ 

8760  LOCATE  12, 1  «  PRINT  "D* 

8770  LOCATE  13, 1  I  PRINT  *S* 

3780  LOCATE  14,1  «  PRINT 
8790  LOCATE  15, 1  »  PRINT  "»* 

8800  LOCATE  16,1  «  PRINT 

8810  LOCATE  22,5  :  PRINT  "0.0  0.5  1.0" 

8820  LOCATE  23,9  i  PRINT  •OEPTH/DEPTHmx' 

8830  FOR  I=t  TO  *© 

8840  XD( I)=X (D/XMAX 
8850  XPR(I)=XD(I) 

8860  YD<  I)=Y (Il/YNAX 
8870  YPR(I)=YD(I) 

8880  YPD(I)=YP(I)/Y#W 
8890  YD(1)=164-YD(I)»160 
8900  YPD(I)=164-YPD(I)*160 
8910  XD(I)=44+XD(I)*220 
8920  PSET  (XD<I>,YD(I>> 
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8330  DRAW  ’e*+2,+2U4L4D4R4’ 

8940  JOT  I 

8950  FOR  1*1  TO  HH 

8960  LINE  (XD<I>,YPD<I))-(XD(I+1),YPDU*1)> 

8970  NEXT  I 

8980  LOCATE  1,8  :  PRINT  HEAD* 

8990  LOCATE  2,6  :  PRINT  ’OVERHEAD  -  ’jOHR 
9000  LOCATE  3,8  :  PRINT  ’UNDER  SURF  *  -|HUS 
9010  LOCATE  19,17  :  PRINT  USING  ’He  =  #.tW’;A2 
9020  LOCATE  20,17  :  PRINT  ’ICE  THICK  =  “ i ITH;“ in. - 
9030  IF  INKEY*  *  ”  THEN  SOTO  9030 
9040  SCREEN  0  :  WIDTH  80 
9050  CLS:PRINT  :  PRINT  :  PRINT 

9060  1*>UT  ’DO  YOU  WANT  RESULTS  PLOTTED  ON  THE  HP  PJDTTER  (Y/N)  ’;A* 
9070  IF  LEFT*(A*,1)  =  ’Y*  OR  LEFT*<A*,1)  =  ’y*  THEN  90*0  9100 
9080  RETURN 
9090  REN 

91 OC  REN  SEND  RESULTS  TO  PRINTER 
91 10  REN 

9120  CLS  :  PRINT  :  PRINT  :  PRINT 

9130  PRINT  ’PUT  PLOTTER  ON  LINE’  s  PRINT  s  PRINT 

9140  PRINT  ’HIT  SPACE  BAR  TO  CONTINUE.’ 

9150  Q»* INKEY*: IF  0*0  ’  ’  TrCN  GOTO  9150 

9160  OPEN  ’CONI : 9600, S, 7, 1 , RS, CS65535,  DS, CD’  AS  il 

9170  PRINT  »1,  *IN;SPl;PAl500,6500jPD‘ 

9180  FOR  1*1  TO  10 

9190  PRINT  #1,  ’IN;YTjPD;PRO,  -500;PU’ 

9200  NEXT  I 

9210  PRINT  #1,  ’IN;VT’ 

9230  FOR  1*1  TO  10 

9230  PRINT  *1,  ’IN;XTjPD;PR700,0jPU’ 

9240  NEXT  I 

9250  PRINT  II,  ’INjXT’ 

9260  PRINT  #1,  ’IMjCP— 1 , — 1 ; LB1. 0“  ♦  CHR* (3) 

9270  PRINT  «1,  *CP’ 

9280  PRINT  II,  ’IN;PA7100,1500* 

9290  PRINT  II,  "IN;CP-1,-1;LB0. 8'  ♦  CHR*<31 
9300  PRINT  #1,  ’CP’ 

9310  PRINT  »1,  ’IN;PA5700, 1500’ 

9320  PRINT  #1,  •INjCP-l,-l}LB0.6’  ♦  WR*<3) 

9330  PRINT  II,  ’CP* 

9340  PRINT  #1,  ’INjPA4300,1500‘ 

9350  PRINT  II,  ’IN;CP-1,-1;LB0.4*  ♦  CHR*(3) 

9360  PRINT  II,  *CP’ 

9370  PRINT  II,  *IN;PA2900, 1500’ 

9380  PRINT  II,  ’lN5CP-l,-ljLB0.2’  ♦  CHR*<3) 

9390  PRINT  II,  ’CP’ 

9400  PRINT  II,  ’ IN j PA 1500, 1500* 

9410  PRINT  II,  ’IN;CP-1,-1;LB0. 0*  ♦  CHfi*<3) 

9430  PRINT  II,  ’CP* 

9430  PRINT  II,  *INjPA1500, 1500* 

9440  PRINT  II,  ’lN;CP-4,-0.  ljLBO.O*  ♦  CHR* (3) 

9450  PRINT  II,  *CP’ 

9460  PRINT  II,  ’IN; PA 1500, 2500’ 
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9470  PRINT  II,  “IN; CP— 4, -0.1; LBO. 2*  *•  CHRK3) 

940)  PRINT  II,  *CP’ 

9490  PRINT  II,  "IN;Pfll500, 3500* 

9500  PRINT  #1,  *IN;CP-4,-0. 1;U0.4*  ♦  CHR«<3> 

9510  PRINT  II,  ’CP’ 

9520  PRINT  II,  “IN; P01500, 4500** 

9530  PRINT  II,  *IN;CP-4, -0.  ljLBO.6"  +  CHM<3) 

9540  PRINT  II,  ’CP’ 

9550  PRINT  #1,  *IN;Pfll500, 5500* 

9560  PRINT  II,  •  IN; CP-4, -0.1; LBO. 8"  +  CHR*<3> 

9570  PRINT  II,  ’CP’ 

9560  PRINT  II,  *IN;PA1500,6500" 

9590  PRINT  II,  " IN;CP— 4,  — 0. 1;LB1.0*  +  CHR«<3) 

9600  PRINT  II,  "CP’ 

9610  PRINT  II,  “IN;PA3000, 7000;“ 

9620  PRINT  II,  ■SI.4,.8,lBMLIGHT  IETER  RESULTS**’  ♦  CHR*(3) 
9630  PRINT  #1,  “ IN ; Pfil 750, 6700“ 

9640  PRINT  II,  “LBSITE  NOME  *I€AM  ”♦  CHR$(3) 

9650  PRINT  #1,  *IN;Pfll750,6350* 

9660  PRINT  II,  “LBO  1ST.  6REEN  SIDE  *f€AD2«  CHR*(3) 

9670  PRINT  #1,  *IN;PA1750,6200’ 

9660  PRINT  II,  ’LBOVERHEfiD  RDS  =*OHR  “’+  CHR»(3) 

9690  IF  ITH  *  0  GOTO  9730 
9700  PRINT  II,  “IN;Pftl750,6050" 

9710  PRINT  II,  "LBRDG  UNDER  ICE  SURF.  =’RUS  CHW<3> 

9720  60TO  9750 

9730  PRINT  #1,  ’IN;PR175O,6O50’ 

9740  PRINT  II,  ’LBRDG  UNDER  SURF.  »’RUS  ”♦  CHM  (3) 

9750  PRINT  II,  ’IN;Pft7000, 1950* 

9760  A2*fl2»100 
9770  A?=INT(R2) 

9760  A2*A2/100 

9790  PRINT  #1,  ’LBKe  *  “R2  *’  ♦  CHR»(3) 

9600  IF  ITH  *  0  GOTO  9630 
9610  PRINT  II,  “INjPfl7000, 1750’ 

9620  PRINT  #1,  “LBICE  THICK  *  'ITH  ’in.’*  CHW<3) 

9630  PRINT  II,  *lNjPR4475,1000* 

9640  PRINT  II,  ’LBOEPTH/OEPTHmx’  ♦  CHRK3) 

9650  PRINT  II,  'IN;PA900, 3230* 

9660  PRINT  II,  'DIO,  1|LBREADIN6/RERDINGhx'  *  CHRt(3) 

9670  IF  PUM  THEN  GOTO  9680  ELSE  GOTO  9940 
9660  FOR  1*1  TO  I© 

9690  ID ( I ) *X ( I ) /XMAX 
9900  XPR(I)=XD<I) 

9910  YD(I)*Y(I)/YNfiX 
9920  YPR(I)=YD(I) 

9930  NEXT  I 

9940  FOR  1*1  TO  N5 

9950  IF  R.03  Tt€N  GOTO  9980 

9960  XPR ( I ) * ( XPR ( I ) *7000) *1500 

9970  YPR!I)=(YPR(I)*5000)+1500 

9960  PRINT  II,  ’INjSH*;Pfi’,XPR(I), *, ’,YPR(I), *  ♦  CHft$<3) 

9990  NEXT  I 
IOOOO  1*1 
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10010  J>X1=((X(1)/XNAX)*7000)+1500  :  LPVl=((YP(l)/YHAX)#5000i+1500 
10020  14© 

10030  lPX2=(U<I)/XNfU)*7000)+1500  :  LPY2=f  <YP<I>/Y>lflX)i5000>+3500 
10040  PRINT  #1,  *IN;PP‘, IPXl,  *, *, LPY1, *  +  CHMI3) 

10060  PRINT  il,  “INjPDjPfl*, LPX2,“,",LPY2,  *;PU*  ♦  CHR»(3> 

10060  PRINT  #1,  ■PU;SPOiPm,4000* 

10070  PL0=3 

10000  aSsPRINT  :  PRINT  s  PRINT 

10090  INPUT  "DO  YOU  WflNT  RNOTVCR  PLOT  (Y/N)  '\Qt 

10100  IF  L£FT«fl$,l)  =  *Y*  OR  L£FT*(M,1)  =  *y*  THEN  SOTO  9170 

10110  CLOSE  «1 

10120  GOTO  9080 
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THREE. SUB 


100  CLEAR 
110  KEY  OFF 

120  DIM  YU1 (200), YU2(200),YD1 (200), YD2(200),VU<200), 1(200), J(200),VD(200) 
130  DIM  E(200),A(200),Z(200),YSC1(200),YSC2(200),YSC3<200), YSC4(200) 

140  DIM  VUSC<200),VDSC(200) 

150  REM 

160  REM  CALCULATE 
170  REM 

180  as  :  PRINT  s  PRINT  :  PRINT  s  PRINT 
190  PRINT  'THIS  ROUTINE  IS  DESIGNED  TO  ITERATE  UPBOUND*  i  PRINT 
200  PRINT  "AND  DOUNBOftD  VESSEL  VELOCITIES  AND  CALCULATE*  »  PRINT 
210  PRINT  'THE  CORRESPONDING  DRAWDOWN.  CALCULATIONS  WILL*  :  PRINT 
220  PRINT  "BE  TERMINATED  UHEN  CRITICAL  CONDITIONS  ARE*  :  PRINT 
230  PRINT  ’REACHED  ON  ONE  SIDE  OF  TIC  VESSEL  OR  THE  OTVER.  *  s  PRINT 
240  PRINT  'BEGIN  VELOCITY  IS  THE  POINT  THAT  TIC  USER  WANTS*  t  PRINT 
250  PRINT  ‘ITERATION  TO  START.*  i  PRINT  j  PRINT 
260  PRINT  'HIT  SPACE  BAR  TO  CONTINUE.* 

270  W=IWEY«:IF  WO  *  *  TFEN  6OT0  270 

280  aS  :  PRINT  .*  PRINT  j  PRINT 

290  PRINT  "CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS*  SPRINT 

300  PRINT  ‘CALCULATE  DRAWDOWNS  FOR*  i  PRINT 

310  PRINT  l,  ’UPBOUND  VESSEL  OH.Y*  :  PRINT 

320  PRINT  2,  ‘DOWNBOUfC  VESSEL  ONLY*  j  PRINT 

330  PRINT  3,  'BOTH  UPBOUND  <  OOWNBOUND  VESSELS*  i  PRINT  j  PRINT 

340  INPUT  *  INPUT  OPTION  *jDIRV 

350  IF  (DIRVU)  OR  (DIRV) 3)  THEN  GOTO  280 

360  CM  DIRV  GOTO  370,  370,  370 

370  as  :  PRINT  :  PRINT  i  PRINT  i  PRINT 

380  INPUT  ‘NOE  OF  SECTION  *,Z« 

390  ft  DIRV  GOTO  400,  450,  400 
400  PRINT 

410  INPUT  "AREA  ON  GREEN  SIDE  OF  UPBOUM)  VESSEL  in  cq.  fact  -  *jAREAl 
420  PRINT 

430  INPUT  'AREA  ft  ED  SIDE  OF  UPBOUND  VESSEL  in  sq.  fact  ■  '{AREAS 
440  ft  DIRV  BOTH  490,  450,  450 
450  PRINT 

460  INPUT  ‘AREA  ON  GREEN  SIDE  OF  OOWNBOUND  VESSEL  in  cq.  fart  •  *jAREA3 
470  PRINT 

480  INWT  'AREA  ft  ED  SIDE  OF  OOWNBOUND  KSSEL  in  sq.  fact  ■  *;AR£A4 
490  PRINT 

500  INPUT  'WIDTH  OF  WATER  SURFACE  in  feet  «  ’jTW 

510  as  i  PRINT  j  PRINT  :  PRINT  j  PRINT 

520  PRINT  *TVC  FOLLOWING  TWO  INPUT  PARAMETERS  ALLOW* 

530  PRINT  t  PRINT  'EIANINATIft  OF  T>C  ICE  COVERED  CONDITION* 

540  PRINT  :  PRINT  *QN  Tt€  SYSTEM.  INPUT  PERCENTAGE  OF  AREA* 

550  PRINT  i  PRINT  'TAKEN  UP  BY  ICE  AS  A  DECIMAL  MULTIPLIER* 

560  PRINT  i  PRINT  *0F  THE  TOTAL  AREA  OF  THE  SECTION.  INPUT* 

570  PRINT  »  PRINT  *0  FOR  ICE  FREE  CONDITIONS.* 
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560  PRIM  :  PRINT 

550  iHP\JT  “ PERCENTAGE:  ICE  or.  green  side  (deciaal  fora)  =  *;I1 
610  I  SPIT  "PERCENTAGE  ICE  on  red  side  (deciaal  fora)  =  * ;  12 
620  PRINT 

630  r*=  ((11+12)  *(AREA1+AREA2) )/TM 
640  RED-1 

650  CS  :  PRINT  ;  PRINT  :  PRINT 
660  ON  RED  SOTO  670,  690 

670  PRINT  "INPUT  THE  KARSHGRE  COfflSU  RATION  ON  THE  GREEN  SIDE"  :PRIKT 
660  GO'D  700 

650  PRINT  "INPUT  THE  fCARSHORE  COfflSU  RAT  I  ON  ON  THE  RED  SIDE"  sPRINT 

700  PRINT  “CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS"  :  PRINT 

710  PRINT  1,  "OPEN  BLUFF  OR  ESCARPMENT '  :  PRINT 

720  PRINT  2,  “OPEN  SLOPING  BEACH*  :  PRINT 

730  PRINT  3,  "SUBMERGED  WETLANDS"  ;  PRINT 

740  PRIM  A,  "MANMADE  PROTECTION"  :  PRINT  :  PRINT 

750  ON  RED  GOTO  760,  750 

760  INPUT  “  INPUT  OPTION  ”;NCG 

77 C  I?  (NC6U)  OR  <NCG>4)  THEN  GOTO  650 
760  60'0  810 

790  INPUT  “  INPUT  OPTION  "(NCR 

800  IF  (NCR'l)  OR  (NCR) A)  THEN  GOTO  650 
610  as  ;  PR  IN  7  :  PRINT  :  PRINT 
820  ON  RED  GO  IQ  830,  850 

830  PRINT  "INPUT  THE  NEARSHORE  SOIL  TYPE  ON  THE  GREEN  SIDE1'  :PRINT 
840  60*0  660 

850  PRINT  "INPUT  THE  NEARSHORE  SOIL  TYPE  ON  THE  RED  SIDE'*  -.PRINT 

860  PRINT  "CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS"  :  PRINT 

870  PRINT  1,  "BOULDERS  AND/OR  COBBLES"  :  PRINT 

880  PRINT  2,  "COARSE  TO  MEDIUM  SAND"  :  PRINT 

690  PRINT  3,  "MEDIUM  SANC  TO  SILT"  :  PRINT 

500  PRINT  4,  "ClAY"  s  PRINT  :  PRINT 

910  O  RED  GOTO  520,  350 

920  INPUT  “  INPUT  OPTION  ";SLG 

530  IT  ISL6U)  OR  (SLGM)  THEN  GOTO  810 
940  GOTO  970 

950  INPUT  "  INPUT  OPTION  "(SLR 

960  IK  (SLH(l)  OR  (SLR) 4)  THEN  GOTO  810 

370  «  RED  SOTO  980,  1260 

980  ON  SLG  GOTO  990,  1020,  1050,  1080 

990  *1*1.17  :  *2=100 

1000  SlGR*=“ BOULDERS  AND/OR  COBBLES" 

1010  60 TO  1100 

1060  MG1=. 5  :  M62=l! 

x 0 30  Si  69$=  COARSE  TO  03  IK  SAND" 

1040  GOTO  1100 

1  jjC  NGl -,42  .  MG2=.  63 

i960  3L 3 Rt=“ MEDIUM  SAND  T0  SILT" 

1070  30 ’Q  1100 
1080  MG  I  =  100  :  MG2=100 
1090  SL5+$="LlAY" 

1100  ON  NCG  GOTO  1110,  1140,  1170,  1200 
1110  MFTL1 

1120  NCGR$-"OPEN  BUFF  OR  ESCARPMENT" 
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1130  3T3  1230 
1140  fF5=l 

1150  *CS«="0PEN  SLOPING  BEACH* 

1160  SOTO  1220 
1170  NF5=1 

1180  XCSR«="SUB«ERG£D  WETLANDS" 

1190  H3T0  1220 
1200  NFS=1 

1210  NCSR$= "MANMADE  PROTECTION" 

1220  N61=NFB*MG1 
1230  MG2=HF6*N62 
1240  RED=2 
1250  SOTO  650 

1260  ON  SLR  GOTO  1270,  1300,  1330,  1360 

1270  MR1=1. 17  :  MR2=100 

1290  S_RE4="B0ULDERS  AND/CR  COBBLES" 

1290  '30TQ  1390 
1300  NR1  =.5  :  IMR2=1! 

1310  SL  RE  t= 11  COARSE  TO  MEDIUM  SAND" 

1320  SCTO  1380 

1330  NR1=.42  :  MR2=.83 

1340  S_R£*=  "MEDIUM  SAND  TO  SILT" 

1350  6CTQ  1380 
1360  MR1=100  s  MR2= 100 
1370  SLR£i="CLAY* 

1380  ON  NCR  GOTO  1390,  1420,  1450,  1480 
1390  MR=1 

1400  NCRE$=’OPEN  BLUFF  OR  ESCARPMENT" 

1410  GOTO  1500 
1420  NFR=1 

1430  NCRE$='OPEN  DOPING  BEACH" 

1440  GOTO  1500 
1450  KFR=1 

1460  NCRE$=" SUBMERGED  WETLANDS" 

1470  GOTO  1500 
1480  HFR=1 

1490  NCRE$="MANMAO€  PROTECTION* 

1500  MRl=NFR«MRl 
1510  MRB=*FR«MR2 

1520  CLS  j  PRINT  :  PRINT  :  PRINT 
1530  »  DIRV  GOTO  1540,  1570,  1540 

1540  INPUT  "DISTANCE  TO  UPBOUND  VESSEL  fro*  green  side  in  feet  *  *}P 
1550  ON  DIRV  GOTO  1580,  1560,  1560 
1560  PRINT 

1570  INP1/I  "DISTANCE  TO  DOWBOLND  VESSa  fro*  green  side  in  feet  =  *jPl 
1560  PRINT 

1590  INPUT  "VESSa  BEAR!  in  feet  «  "jB 
1600  PRINT- 

1610  INPUT  "VESSEL  DRPFT  in  feet  «  "jD 
1620  PRINT 

1630  INPUT  "RIVER  vaOCITY  in  feet  per  sec.  *  *;V1 
1640  ON  DIRV  GOTO  1650,  1680,  1650 
1650  PRINT 

1660  IWH/T  "BEGIN  UPBOUND  VELOCITY  in  feet  per  sec.  «  ";V2UP 
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1670  ON  DIRV  SOTO  1700,  1680,  1880 
1680  PRINT 

1690  INPUT  ’BEGIN  DOWNBOUND  VELOCITY  in  feet  per  sec.  =  *;V2DP 
1700  PRINT 

1710  INPUT  ’DEPTH  AT  CENTER  OF  CHANICL  in  feet  *  "jDl 
1780  6=32.2 
1730  VCH*=1 
1740  VCHD=1 

1750  ERASE  YU1,  YU2,  YDl,YD2,VU,  I,  J,VD 
1760  ERASE  E,  ft,  Z,  YSC1 ,  YSC2,  YSC3,  YSC4 
1770  ERASE  VUSC,VDSC 

1780  DIN  YU1 (200), YU2<200>,YD1 (200),YD2(200),VU(200), 1(200), J(200),VD(200) 
1790  DIK  E(200), A(200),Z(200), YSCl (200),YSC2(200),YSC3(200), YSC4I200) 

1000  DI*  VUSC(200),VDSC(200) 

1010  Os  DIRV  6OT0  1820,  £420,  1820 
1320  CLS  :  PRINT  :  PRINT  :  PRI>T  :  PRINT 

1830  PRINT  "  Wait . (STEAL'  STATE  -  UPBOUND)’ 

1040  AR£1=AREA1 
1050  SR£2=QREA2 
1060  V2J=V2UP 
1870  F.1=0 
1080  FL2=0 
1890  %1*P 
1900  T=1 
1910  V5RU=V£U 
1920  VUT)=V2U 
1930  PlACE=1 
1940  RLWJ=1 

1950  A.A£A1=AREA1-(I1*AREA1) 

1960  AR£A2=AREA2-1I2«AREA2) 

1970  YC1=(AREAJ-((B*D)*(.5))-((((((V21RV1)*AREA1)a2)*TW1)/G)a(1/3)))/TW1 
1980  Yl=Fl)l 
1990  FCU=Y1 
2000  TU2=TW-P 

2010  YC2= (AREA2- <  <B*D> * (.  5)  >-  « <  <  ( < V2U+V1 ) # AREAS)  A2)*TW2)/G)A(1 /3) ) ) /TW2 
2020  A21=AREA1-(Y1*TW1)-((B«D)*(.5)1 

2030  IF  ( ( (V21M1)  A2) *(AREA1A2) *(TW1- (B/2) ) ) / (6*(A21A3> )  )=  1  1>€N  GOTO  2300 
2040  Y2U1= ( ( ( 1VI+V2U) «AREA1 ) A2 ) / ( ( (A21 ) A2) »2»G) ) -1 ( (V1+V2U) A2) / (2*6) ) 

2050  IF  (Y2U1+D)>D1  GOTO  3030 

2060  IF  (Y2U1-Y1)  (.01  GOTO  2090 

2070  Y1=Y1+.01 

2080  GOTO  2020 

2090  FU1=Y1 

2100  Y1=FU2 

2110  FCU2=Y1 

2120  A22=AREA2-(Y1*TW2)-((B*D)*(.5) ) 

2130  IF  (((V2U+Vl)A2)*(AREA2A2)*(TW2-(B/£)))/(G*(A22A3) )  )'  l  THEN  60TO  2340 
2140  Y2U2=  ( ( ( (V1+V2U)*AREA2)  A2) /  ( ( (A22)A2) *2*6) ) -( ( (V1+V2U) A2)  / (2*6) ) 

2150  IF  (Y2U2+DD01  90T0  3030 

2160  IF  (Y2U2-YI )  (.  01  SOT 0  2190 

2170  Y1=Y1+.01 

2180  SOTO  2120 

2190  YU1 (T)=Y2U1 

2200  YTJ2(T)=Y2U2 
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2210  7=M 

2220  ic  vCHU  =  2  GOTO  2230  ELSE  GOTO  2250 

2230  V21M/2U+.  05 

2240  SOTO  2260 

2250  V2U=V2U+.5 

2260  VU(T)=V2U 

2270  NU=T 

2280  F'J2=Y1 

2290  GOTO  1970 

2300  CRITL-l 

2310  IF  VCHU=2  GOTO  2420 

2320  FU1=FCU 

2330  GOTO  2370 

2340  CRITU=2 

2350  IF  VCHU=2  GOTO  2420 

2360  FUl  =fCU 

2370  Y1=FCU2 

2380  T=T-1 

2390  V2U=VU<T) 

2400  VCKU=2 
2410  60TO  2210 
2420  FDl =0 
2430  FD2=0 
2440  AR£3=AR£A3 
2450  ARE4=AREA4 
2460  V2D=V2DP 

2470  ON  DIRV  GOTO  3220,  2480,  2480 
2480  PLACED 
2490  RUND=1 

2500  CLS  :  PRINT  :  PRINT  :  PRINT  :  PRINT 

2510  PRINT  '  Wait . (STEADY  STATE  -  DOWNBOUND)* 

2520  T=1 
2530  VPRD=V2D 
2540  VD(T)=V2D 
2550  TM3=P1 

2560  AREA3=AREA3-(Il»fiREA3) 

2570  AREA4=AREA4-< I2*AREA4) 

2580  YC3=(AREA3~ ( (B*D>*(.  5) )-(((( ( (V2D-V1)*AREA3) A2) *TW3> /6> A< 1/3) ) ) /TH3 
2590  Y1=FD1 
2600  FCD=Y1 
2610  TW4=TW-P1 

2620  YC4=(AREA4-((B»D)*(.5) )-((((((V2D-Vl)*AR£A4)A2)tTW4)/6)A(l/3)))/TW4 
2630  A11=AREA3-(Y1*TH3)-((B*D)»(.5)) 

2640  IF  <(  (V2D-Vl)A2)*(AREA3A2)*(TH3-<8/2)))/(G*(AllA3))  >*  1  T)£N  SOTO  2910 
2650  Y2Dl=(<((V2D-Vl)»AR£A3)A2)/U(All)A2)»2«G))-(<(V2D-Vl)A2)/(2*6)) 

2660  IF  (Y2D1+D)>D1  GOTO  3030 

2670  IF  (Y201-Y1X.01  GOTO  2700 

2680  YXY1+.01 

2690  GOTO  2630 

2700  FD1=Y1 

2710  Y1=FD2 

2720  FCD2=Y1 

2730  A 1 2=AREA4-  ( Y 1*TW4) - ( (8*0 ) * ( . 5) ) 

2740  IF  ( ( ( V2D-V1 ) A2) * <AR£A4A2) *  (TW4- <B/2) ) ) / <G* (AIM) )  >«  1  THEN  GOTO  2950 
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2750  Y2D2= ( < ( (V2D-V1 ) *AR£A4) '2) / ( ( (A12) A2) *2«G) ) - ( ( < VSD-V1 ) *2) /  (2«6) ) 

2760  IP  <Y2D2*0))D1  GOTO  3030 

2770  IF  (Y2D2-Y1) L 01  GOTO  2800 

2780  Y1=Y1+.  01 

2790  SCrO  2730 

2800  YD1 (T)=Y2Dl 

2810  YD2(T)*Y202 

2820  7*7+1 

2830  IF  VCHD=£  THEN  GOTO  2840  ELSE  60TQ  2860 

2840  V2D=V2D+.  05 

2850  GOTO  2870 

2860  V2D=V2D+.5 

2870  VD(T)=V2D 

2880  N0=T 

2890  FD2=Y1 

2900  GOTO  2580 

2910  CRITD=1 

2920  IF  VCHD=2  GOTO  3220 
2930  rDl=FCO 
2940  SO'O  2980 
2950  C3ITD=2 

2960  IF  VCHD=2  60TO  3220 
2970  FD1=FCD 
2980  Yl=FCD£ 

2990  T-T-l 
3000  V2D*VD(T) 

3010  VCHD=2 

3020  GOTO  2820 

3030  US: PftINTj  PRINT 

3040  ON  PLACE  GOTO  3050,  3080 

3050  PRINT  ‘THE  PARAMETERS  INPUT  FOR  TIC  UPBQUK)  VESSEL  ‘ 

3060  RUNJ=2 
3070  60T0  3110 
3080  CLS:PRINT:PRINT 
3090  RUND*2 

3100  PRINT  ‘THE  PARAMETERS  INPUT  FDR  TIE  DOUNBOUND  VESSEL  * 

3110  PRINT:PRINT  ‘CREATE  A  DRAWDOWN  LARGE  ENOUGH* 

3120  PRINT ; PRINT  ‘TO  GROUT®  TIC  VESSEL.  THE  DRAWDOWN* 

3130  PRINTiPRINT  ‘ADDED  TO  THE  DRAFT  IS  GREATER  THAN* 

3140  PRINTjPRINT  ‘TIC  DEPTH  IN  WE  CENTER  DF  THE  CHANNEL.  "iPRINTtPRINT 
3150  M  PLACE  GOTO  3160,  3190 

3160  I  UNIT  ‘DO  YOU  WANT  TO  CHANGE  ANY  PARAMETERS  (Yes/No)  ‘jA» 

3170  IF  LEFT«A*,1»  »  T  OR  LEFTflAO,  11  «  *y*  T1CN  GOTO  8010 
3180  SOTO  2420 

3190  INPUT  ‘DO  YOU  WANT  TO  CHANGE  ANY  PARAICTERS  (Yes/No)  ‘;A* 

3200  IF  LEFT*  Tft«,  1 )  *  ‘Y*  OR  LE3=T*<ft*,  1)  •  ‘y*  WEN  GOTO  8010 
3210  SOTO  3220 

3220  CLS  :  PRINT  :  PRINT  :  PRINT  :  PRINT 

3230  PRINT  ‘  wait . ■ 

3240  SCSI®  4290 

3250  CLS  :  PRINT  :  PRINT  :  PRINT  s  PRINT 
3260  ON  DIRV  GOTO  3270,  3750,  3270 
3270  ON  RUNU  GOTO  3280,3370 

3200  PRINT  ‘THE  CALCULATION  REACTED  CRITICAL  CONDITIONS  ‘  t  PRINT 
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3290  ’=HJ 

3300  IN  33  ITU  GOTO  3310,  3340 

3310  P"R1  VT  USING  'ON  THE  GREEN  SIDE  OF  Tt€  UPEOJM)  VESSE.  AT  M.M  *;VU(T); 
3320  PRINT  'ft /sec'  :  PAINT  :  PRINT 
3330  StTO  3390 

3340  PRINT  USING  'ON  THE  RED  SIDE  OF  Tt£  UPHUM)  VESSEL  AT  M.M  -jVU(T>j 
3350  PRINT  "ft /sec*  :  PRINT  :  PRINT 
3360  GO'O  3390 

3370  PRINT  USING  “M  UPB0UND  VESSEL  IS  GROUWED  AT  M.M  ";VOJ<T> 5 

3380  PRINT  *ft/sec*  :  PRINT  :  PRINT 

3390  PRINT  * DAP AGE  PRtBAfilLITY  GREEN  SIDE  IS";PRINT 

3400  I:  V2'jG=0  'HEN  GOTO  3440 

34 iO  PRINT  USING  *  NONE  TO  LIGHT  FROM  0  ft/sec  to  M.M  ";VJUS| 

3420  3=:nT  “ft/sec":PRINT 
3430  53*.  3460 

3440  PR  IN'*  *  NONE  TO  LIGHT  fro*  0  ft/sec  to  CRI7ICA.'1:  PRINT  :PR!NT 
3450  -I*]  3550 

346.  I*  '.3.0=0  THEN  GO'D  3530 

347!  PR;\T  USING  “  MODERA'E  fro*  M.M  " ;V1UG| 

246!  P'-IV  USING  "ft/sec  to  M.M  ";V2U6; 

249)  p;:‘T  " ft/sec" :PRINT 

350k  PRINT  USING  "  SEVERE  above  M.M  " ;V2JG} 

35IC  PRIN*  *  ft /sec": PRINT 
352.  51*3  3550 

353C  PRINT  USING  *  MODERATE  above  M.M  *jV2UGj 
35*0  PRINT  "ft/sec":PRINT 
35i  P=IN*  "DAMAGE  PROBABILITY  RED  SIDE  1S“:PR1NT 
35E 0  I-*  VE".R=0  'HEN  60TQ  3600 

3  70  PRIN*  USING  *  NONE  TO  LIGHT  FRCH  0  ft/sec  to  M.M  ";V1UR; 

2520  ?'I NT  *ft/sec":?RINT 
250;  51* j  3620 

36 CO  PRINT  *  NONE  TO  LIGHT  fro*  0  ft/sec  to  CRITICAL":  PRINT  : PRINT 

36:0  GO'O  3710 

3620  V3U3=0  THEN  GOTO  3690 

3630  PRINT  USING  *  NODERATE  fro*  M.M  *;V1UR; 

3640  PRINT  USING  "ft/sec  to  M.M  *jV2UR; 

3650  PRINT  "ft /sec": PRINT 

3660  PRINT  USING  "  SEVERE  above  M.M  *;V2UR; 

3670  PRINT  *ft/sec":PRINT 
3680  SOTO  3710 

3690  PRINT  USING  *  MODERATE  above  M.M  ";V2UR; 

3700  PRINT  *ft/sec":PRINT 

3710  PRINT  "HIT  SPACE  BAR  TO  CONTINUE." 

3 720  CM  INKEY*:  IF  0*0*  *  THEN  GOTO  3720 
3730  C_S:?A1NT  :PRINT  :PRINT  :PRINT 
3740  CA  DIRV  GOTO  4210,  3750,  3750 
375C  RLND  SO'O  3760,3850 

376C  :::.T  "THE  CALCULATION  REACHED  CRITICAL  CONDITIONS  *  :  PRINT 
3770  *=ND 

3780  0".  CSI'D  GOTO  3790,  3820 

3790  5;:a'  USING  "ON  Tt€  GREEN  SIDE  OF  THE  DOWNBOUND  VESSEL  AT  M.M  *jVD(T) 
3800  PRINT  “ft/sec*  :  PRINT  :  PRINT 
3810  62*0  3870 

3820  PRINT  USING  "ON  THE  RED  SIDE  OF  Tl€  DOWNBOUND  VESSEL  AT  M.M  ’{VDIT); 
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2630  PRIN”  "ft/sec"  :  MINT  :  PRINT 
3340  SC'O  3370 

3850  MINT  'THE  DOWBOLHD  VESSEL  IS  GROUNDED  AT  tt.H  "jVU<T>; 

3360  PRINT  “ft /sec":  PRINT  :  PRINT 

3370  PRINT  'DATA6E  PROBABILITY  SREEN  SID;  I3":PRINT 

3880  I-  V2DG=0  THEN  GOTQ  3920 

3890  PRINT  USING  "  NONE  TO  LI3HT  FROM  0  ft/sec  to  ««.M  ";V1D6| 

3900  PRINT  "ft /sec" SPRINT 
3913  5:~0  3940 

3923  PRINT  "  NONE  "0  lI&i*  free  0  ft/sec  to  CRITICAL":  PRINT  :PRINT 
393C  60  ”0  4030 

394:  :c  V30G-0  THEN  GOTO  4010 

3953  PRINT  USING  "  MODERATE  froa  ##.##  ";V106j 

3901  -IN’  USING  "ft/sec  to  M.t#  M;V2DG; 

3:73)  PRINT  *ft/sec":PRINT 

3330  PRINT  USING  "  SEVERE  aaove  *#.##  “;V2D6; 

3933  PRIN’  "ft/sec" SPRINT 

40..:  4030 

•j):3  PRINT  LSlNio  *  MODERATE  above  ##.#*  ";V2D6; 

4020  -■  IN”  11  ft /sec" :PRINT 

40X  PRINT  ’DAT AGE  PROBABILITY  RED  SIDE  IS":PR3NT 

4040  I-  V20R=0  THEN  GOTO  4060 

-35  PRINT  USING  *  NONE  TO  LIGHT  FROM  0  ft/sec  to  M.M  ";V1DR; 

4060  PRINT  "ft/sec" :PRINT 
4071  30*0  4100 

40 au  PRINT  "  NONE  TO  lIGHT  froe  0  ft/sec  to  CRITICAL":  PRINT  sPRINT 
4090  GC*0  4190 

41(0  V3D9=0  THEN  6OT0  4170 

4i:0  PRINT  USING  "  MODERATE  frc«  •#.»#  ";V1DR; 

4i20  PRINT  USING  "ft/sec  to  ♦•.##  ";V2DR; 

4130  PRINT  "ft/sec" :PRIN7 

4140  PRINT  USING  "  SEVERE  above  ##.##  "jV2DR; 

4150  PRINT  "ft /sec" sPRINT 
4160  GCTO  4190 

4170  PRINT  USING  "  MODERATE  above  tt.M  ";V2DR; 

4160  MINT  "ft/sec“:PRINT 

4190  PRINT  "HIT  SPACE  BAR  TO  CONTINUE." 

4200  W=INKEY$:IF  WO*  *  THEN  GOTO  4200 

4210  CLS  :  PRINT  :  PRINT  :  PRINT  :  PRINT 

4220  PRINT  "THE  FOLLOWS  IS  A  LIST  OF  THE  RESULTS  FOR  *  «  PRINT 

4230  PRINT  "THE  VELOCITY  VS  DRAMXXM  CALCULATIONS.  TO"  «  PRINT 

4240  PRINT  “RESULTS  WLL  BE  6IVEN  15  LINES  AT  A  TI)E  "  :  PRINT 

4250  PRINT  :  PRINT 

4260  PRINT  "HIT  SPACE  BAR  TO  CONTINUE." 

4270  tu INKEY*: IF  WO"  "  Tl£N  GOTO  4270 
4280  8370  5120 

429C  Cs  DI.RV  GOTO  4300,  4700,  4300 
4300  7*1  :  HS=1 
4310  l:  YUKTXMGl  SOTO  4400 
4320  IF  YUKT)  <MG2  GOTO  4380 

4330  V2US=VU (T-l ) ♦ ( ( YU1 <  TJ -MG2) / ( YU1 (T) -YU1 (T-l ) ) *  <VU (T) -VUtt-I ) ) ) 

4340  T=NU-1 
4350  V3U&=VRJ(T) 

4360  PUG=YU1(T) 
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<•37.  bl'Z  4440 

438.  -5=2  SOTO  4410 

-3?. 

^<X  « :.>WJ<T-l)+((Yijl  (T)-MGl)/(YUl  (T)-Ytll  (T-1))*(VL,'(T)-VU(T-1))) 
4410  *='-1 

442:  :r  >MI  S0T0  4440 
4430  GTS  4310 

44V.  VJKNU-1)  (WG1  T)£N  GOTO  4470 

WJ-  ’.)  '*CT  THE1!  !*»T)  4490 

448.  8;*:  4500 
4470  .cv5=0  :  V3UG=0 
44T  ...5=  VO (NU-l) 

448J  3: '3  4500 

44 '9.  .2jG=VXSU-1)  :  V3UG=0 

450C  *=.  :  HSV 

45;:  ::  VjStTHMl  GOTO  4600 

45c 0  X  vJ£n  0192  GOTO  4580 

453:  72. 4=V5  iT-l  )* ( (YU2CT) -PR2)  /  f YU2(7)  -YU2 (T-l) )« (VO (7)  -V.  ) )  > 

454; 

455.  <  5.  *=V.  (T) 

458?  P.^YO 80 
457C  4700 

45&:  X  *S=2  GG'O  4610 
4:3;  -’3=2 

4jOC  V ;  J9=VU  (T-l ) ♦(  (YUS (T)-KRl)  / (Y32 ( *)  -Y’J2 C-l )  )*(VU  (T) -VJ (T-l ) )  > 
4610  T=T+1 

<820  l-  T=MJ  SOTO  4640 
4630  3C'0  4510 

46V  IF  YU2(NU-I)  <MR1  GOTO  4670 
4650-  X  YU£(NU-1X«R2  60T0  4690 
4663  SO  4700 
4670  V2*J9=0  ;  V3LR=0 
46^5  V1JR=VU(NU-1) 

468j  GO  4700 

46  *  V2.R=V..(NL'-1)  :  V3(JR=0 

4700  0*.  3  XV  GOrO  5110,  4710,  4710 

4710  *=:  :  HS— 1 

4720  IF  YDH7XHG1  GOTO  4810 

4730  IF  YDKT)  (N62  GOTO  4790 

4740  V20G=VD(T-1)  +  ( (YD1  <T) -¥&) /  (YDl  (T) -YDl  (T-l) )#<VD(T)-VD(T-1) )) 
4750  T=#D-1 
4760  V3DG=VD(T) 

4770  -  36=YD:  (T) 

4763  3073  4650 
4737  X  4S=2  GOTO  4820 
4800  -S=2 

46;3  V'.;«S=VD(T-t)  +  ((YDl (T)-MG1)/(YD1(T)  —YDl (T-1))*!VD(T)-VD(T-1))> 
4820  T=>1 

483C  IF  T=ND  SOTO  4850 
4840  SO  4720 

4850  IF  YDKND-l)  (MGi  SOTO  4880 
4860  IF  YDl  (MM)  (MG2  GOTO  4900 
4870  GCT0  4910 
4880  V2D6=0  :  V3DG=0 
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4835  v;:5=V0(WM) 

4890  CC*G  4910 

4900  V*>3=VD(ND-1)  :  V3D6=0 

4910  ■*:  :  HS=1 

4920  ::  VD2IT)  OKI  6OT0  5010 

4330  I"  YD£(T)  (NR2  60T0  4990 

4940  v2D9=^(T-l)  +  ({YD2(T)-«R2)/<yD2(T)-Yl)2(T-l))*(VD(T)-VD(T-li)) 
4950  ’=ND-i 
4960  v3D9=VD(T) 

4970  ::^VD2(T) 

4980  ;!"C  5110 
4590  HS=2  GOTO  5020 
5000  -S*2 

5010  '« :DS=VD(T-T)+((YD2(T)-NR1)/(YD2(T)-YD2(T-1))*<VD(T)-VD(T-1))) 
5020  T='+l 

5030  1:  T-ND  SOTO  5050 
5040  GC'Q  4920 

5050  ::  YD21ND-1) CMRl  GOTO  5080 
5060  ::  YD£(ND-1) <WR2  GOTO  5100 
5070  60*0  5110 
5060  41DR=0  :  V3DR=0 
5065  v:DR=VDIND-l) 

5090  GC'O  5110 

5100  v2R»VD(ND-l>  :  V3DR=0 

5110 

5120  DISV  SOTO  5130,  5380,  5130 
5l 30  *=. 

51*0  S»l5 
5150  u.S  :  PRINT 

5160  -:,M  ■  ******  RESULTS  FOR  UPBOUND  VESSEL  ******' 

5170  PRINT  ■  VESSEL  GREEN  SIDE  RED  SIDE  * 

5180  PRINT  '  VELKITY  DRAWDOWN  DRAWDOWN’ 

5190  P=INT  *  (ft/sec)  (ft)  (ft)  *  :  PRINT 

5200  I-  NU(=N  THEN  N=NU-1 
5210  C0R  T=N  TO  N 

5220  PRINT  USING  “  M.Ma|VIMT)| 

5230  PRINT  USING  ■  H.M  *}YU1(T)} 

5240  PRINT  USING  *  ##.##  ’jYICIT) 

5250  NEXT  T 

5260  IF  N=NM  DEN  SOTO  5280 

5270  GOTO  5290 

5280  PRINT  *  CRITICAL* 

5290  PRINT 

5300  PRINT  ’HIT  SPACE  BAR  TO  CONTINUE.* 

5310  3MINKEY*:IF  QtO*  *  DEN  GOTO  5310 

5320  I-  N=NU-i  DEN  GOTO  5380 

5330  M»*15 

5340  S=S>15 

5350  3L3  :  PRINT 

5360  3 PINT  *  ******  RESULTS  FOR  UPBOUND  VESSEL  (cont'd)  ******" 

5370  GOTO  5170 

5380  Ml 
5390  M15 

5400  ON  DIRV  GOTO  5640,  5410,  5410 
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54:0  as  :  PRINT 

=•420  PRINT  *  h»h  RESULTS  FOR  DOUNBOUNO  VESSEL  ♦««♦* 

5430  PRINT  “  VESSa  GREEN  side  red  side  • 

5*4C  PRINT  "  VELOCITY  DRAHDOHN  DRAWDOWN" 

5450  3RINT  *  (ft/sec)  (ft)  (ft)  *  :  PRINT 

>80  I?  ND(*N  T)®  M=l®-1 
5470  -SR  T=H  TO  N 

5480  PRINT  USING  “  ##.»#*;VD(T) ; 

54 SC  PRINT  USING  *  K.H  *jYSI(T>; 

55  OC  PRINT  USING  "  #4.##  *;VD2(T) 

5510  NEJT  T 

5580  I-  N=ND-1  THEN  SOTQ  5540 

553!  SCO  5550 

55*.  :TINT  *  CariCAL" 

555C  PRINT 

5580  PRINT  ‘HI"  SPACE  BAR  TO  CONTINUE.' 

5570  INKEY*: IF  QSO*  '  THEN  GOTO  5570 

558C  IT  NfND-I  THEN  SOTO  5640 

55 SO  *=,*15 

560*1  n=n+15 

56::  as  :  print 

561*.  PRINT  •  #*»*«  RESULTS  FOR  DGWNBOLM)  VESSa  (cont’d)  *♦*#«" 

5630  arc  5430 

56*0  C_S  :  PRINT  :  PRINT  :  PRINT  :  PRINT 
5650  INPUT  "DO  YOU  HAN'T  A  HARD  COPY  (Yes, No) '{A* 

5681  1=  LEFr*(A$,l)  *  ”Y"  OR  LEFT$(A4, l)  =  *y'  T®  GOTO  5780 
567C  as  :  PRINT  :  PRINT  :  PRINT  s  PRINT 

jo 80  INPUT  'DO  YOU  HANT  TO  PLOT  RESULTS  ON  T)€  SCREEN  (Yes, No) '{A* 

5690  I-  lEFT$(A$,1)  =  "Y*  OR  LEFTKA4, 1)  *  *y'  THEN  60T0  9080 
5700  C_S  :  PRINT  j  PRINT  :  PRINT  j  PRINT 

57:0  IN  PC’"  "DO  YOU  WANT  TO  PLOT  RESULTS  ON  THE  HP  PLOTTER  (Yes,No)';A4 
5720  IF  LEFT*(A*,1)  =  "Y*  OR  L£FT*(A4,1>  *  *y*  THEN  GOTO  10170 
5750  as  j  PRINT  :  PRINT  :  PRINT  s  PRINT 

57*0  INPUT  ’DO  YOU  HANT  TO  CHANGE  ANY  PARAMETERS  AND  RERUN  (Yes,No)'iM 
5750  IF  lEFTHP*,!)  *  'Y*  OR  LEFT$(A$,1)  =  y  THEN  SOTO  8010 
5760  SCO  14690  :  REM  FRQH  CALCULATING  DRAHDOHNS 
5770  REN 

5780  REM  SEND  OUTPUT  TO  PRINTER 
5790  REM 

5800  CIS: PRINT  .-PRINT  .-PRINT  jPRINT 

5810  PRINT  "  PUT  PRINTER  ON  LUC.  PLACE  PRINTER  )€ADa  (PRINT 

5830  PRINT  *  AT  THE  TOP  OF  T7€  PAGE.  *: PRINT  (PRINT 

5830  PRINT  *  HIT  SPACE  BAR  TO  CONTINUE.1 

5640  W=INKEY«:IF  0*0 1  1  THEN  GOTO  5840 

5850  LPRIN?:LPRINT (LPRINT jLPRINT (LPRINT 

5860  LPRINT  CHR$ (27) ;CH»(88)  ;CHR4(1)  ;CHR«(27) ;CHR«(87>  ;CH»(i) ; 

5870  LPRINT  1 
5880  .PRINT 

5890  .PRINT  *  NAIC  OF  SECTION  «  *;Zt 
5900  LPRINT 

59 ic  t print  ■  :  lprint 

5920  LPRINT  CHR* (27) jCHR* (87) ;CHR*<0) 

5930  ON  DIRV  GOTO  5940,  5970,  5940 

5940  LPRINT  1  AREA  ON  GREEN  SIDE  OF  UPBOUW)  VESSa  («*.  ft)  *  \ARE1 
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595.  ■  AREA  CN  RED  SIDE  Of  UP80WD  VESSEL  <sq.  ft)  *  \ARE2 

5%:  :\  DIRV  SO  5990,  5970,  5970 

597.  .-IM  “  AREA  0\  GR£E\  SIDE  OF  OOUfflOUND  VESSEL  <sq.  ft)  =  ',AR£3 

5360  .PRIM  "  AREA  ON  (RED  SIDE  OF  OOWNBOUND  VESSEL  <sq.  ft)  «  *,AflE4 

599i.  .PRIM  "  NEARSHORE  GREEN  -  ",NCG» 

6000  .PRIM  “  SOIL  TYPE  GREEN  -  “,SLGR* 

6010  .PR IN"  “  NEAR9«3RE  RED  -  \NCRE* 

6020  -PRIM  '  SOIL  TYPE  RED  -  *,SLRE» 

6030  .PR IN"  “  PERCENTAGE  ICE  on  green  side  (deciHl  fore)  =  *,I1 

60*0  *  oc^CEMAGE  irf  r.f>  red  sice  'deciea!  for*'  -  *,I2 

6050  .PRIM  “  WIDTH  Of  WATER  SURFACE  (ft)  =  ’.TW 

6060  C\  DIRV  GOTO  6070,  6090,  6070 

6070  .PRINT  •  DISTANCE  TO  ABOUND  VESSE.  free  green  side  (ft)  =\? 

6060  DN  DIRV  GC'D  6100,  6000,  6090 

6090  .PRIM  *  DISTANCE  TO  DGWNBGuND  VESSEL  free  green  side  (ft)  =*,P1 
6100 

6;  10  .PRINT  »  VESSEL  BEAM  (ft)  =  \8 
6120  .PRINT  n  VESSEL  DRAFT  (ft)  =  *,D 
t: 30  .PRINT  ••  RIVER  VELOCITY  (ft  per  sec.)  =■  *,V1 
6140  C\  DIRV  GOTO  6150,  6170,  6150 

6150  .PRIM  "  BEGIN  UPBOUND  VESSEL  SCLDCITY  (ft  per  sec.)  *  *,VPRU 
6160'  ON  DIRV  GOD  6180,  6170,  6170 

6:70  .PRIN-  “  BEGIN  DOWNBOUND  VESSEL  VELOCITY  (ft  per  sec.)  =  \VPRD 
6180  .-PINT  ’  DEPTH  AT  CENTER  OF  CHANNEL  (ft)  =  ',01  :  L PRINT 
6:90  -PRIN'  “  ' (HHIHIHHI*  S  LPRINT 

6200  CN  DIRV  GOTO  6210,  6660,  6210 
5210  ON  RuMi  SCTO  6220,6310 

6220  -PRIN"  *  THE  Ctt_OJUATION  REACHED  CRITICAL  CONDITIONS  * 

6230  *=NJ 

62 AO  CN  CRITLi  G3TC  6250,  6280 

6250  .PRIN"  USING  "  ON  THE  GREEN  SIDE  OF  THE  UPBOUND  VESSEL  AT  «*.M  ’;VU(T); 
6260  .PRIM  *ft/sec*  :  LPRINT  s  LPRINT 
6270  SCTO  63 AO 

6290  LPRINT  USING  "  ON  THE  RED  SIDE  OF  T)€  UPBOUND  VESSEL  AT  H.tt  ";VU(T) ; 
6290  LPRINT  *ft/sec*  :  LPRINT  i  LPRINT 
6300  SOTO  63 AO 
6310  ~=WJ 

6320  .PRINT  :  LPRINT  USING  *  THE  UPBOUND  VESSEL  IS  GROUNDED  AT  H.M  ";VU(T>g 

6330  LPRINT  'ft/sec*  :  LPRINT  s  LPRINT 

63A0  LPRINT  *  DAMAGE  PROBABILITY  6REEN  SIDE  IS’iLPRINT 

6350  IF  V2UG=0  THEN  GOTO  6390 

6360  LPRINT  USING  *  NOTC  TO  LIGHT  FROM  0  ft/sec  to  •#.*#  *|V1U6| 

6370  LPRINT  'ft/sec* 

6380  6(T  0  6410 

6390  LPRINT  *  NONE  TO  LIGHT  free  0  ft/sec  to  CRITICAL**  LPRINT  s LPRINT 
6400  GOTO  6500 

6410  IF  V3UG=0  THEN  GOTO  6480 

6420  LPRINT  USING  *  MODERATE  free  M.l#  *;V1UG; 

6430  .PRINT  USING  "ft/sec  to  *#.«#  *;V2U6j 
6440  .PRINT  *ft/sec* 

6450  LPRINT  USING  “  SEVERE  above  M.l#  ";V2UG; 

6460  .PRINT  *ft/sec* 

6470  6£T0  6500 

6480  LPRINT  USING  "  MODERATE  above  #*.«#  *}V2UG; 
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£,490  .PRINT  "ft/sec* -.LPRINT 

£500  l^:\T:LPRIMT  ■  DAMAGE  PROBABILITY  RED  SIDE  IS*:LPRINT 
6510  V'2lR=0  SOTO  6550 

6520  '.PRINT  USING  *  NOME  TO  LIGHT  FRO*  0  ft/sec  to  14.14  “;V1UR; 

6530  .PRINT  'ft/sec' 

6540  arc  6570 

6550  .PRINT  "  NONE  TO  LIGHT  frtm  0  ft/sec  to  CRITICAL* iLPRINT  iLPRINT 
6560  3CT0  6660 

657C  I-  V3oR=0  THEN  GOTO  6640 

6580  .PRINT  USING  "  NODERATE  froe  44.44  "iVlURj 

6530  .PRINT  USING  "ft/sec  to  14.4#  *jV2UR; 

6600  i-PRINT  'ft/sec* 

6610  .PRIST  USING  "  SEVERE  above  44.1*  *;V2URj 
6620  .PRINT  'ft/sec' 

6630  SCO  6660 

6640  .PRINT  USING  *  MODERATE  above  41.44  *;V2URj 

6650  .PRINT  *ft /sec*  .-LPRINT 

6660  Cs  DIRV  SOP’O  7120,  6670,  6670 

6670  ON  RUND  GOTO  6660,6770 

6680  lPRIN’  PRINT  *  THE  CALCULATION  REACHED  CRITICAL  COHJITIONS  * 

6690  '=NQ 

6700  EN  CRITD  GOTO  6710,  6740 

6710  .PRINT  USING  “  ON  THE  GREEN  SIDE  Of  THE  DOUNBOUND  VESSEL  AT  44.44  *;VD(T) 
6720  LPRXNT  'ft/sec*  :  LPRINT  :  LPRINT 
6730  SOTO  6800 

6740  LP.il'T  USING  “  ON  THE  RED  SIDE  OF  THE  DOUNBOUND  VESSEL  AT  44.44  *;VD(T); 
6750  LPRINT  *ft/sec-  t  '.PRINT  :  LPRINT 
6760  GCFG  68 CC 
6770  *=ND 

6780  LPRINT  :  LPRINT  USING  *  THE  DOUNBOUND  VESSEL  IS  6R0UWED  AT  44.44  *-,WD(T) 

6790  LPRINT  *ft/sec*  :  LPRINT  :  LPRINT 

6800  .PRINT  *  DAMAGE  PROBABILITY  GREEN  SIDE  IS’iLPRINT 

6810  IF  V2DG=0  THEN  GOTO  6850 

6820  LPRINT  USING  *  NONE  TO  LIGHT  FROM  0  ft/sec  to  44.44  B;V1D6; 

6830  LPRINT  *ft/sec* 

6840  GOTO  6870 

6850  LPRINT  *  NOt£  TO  lIGHT  free  0  ft/sec  to  CRITICAL*:  LPRINT  sLPRINT 
6860  GOTO  6960 

6870  IF  V3D6=0  MN  GOTO  6940 

6880  LPRINT  USING  '  MODERATE  fro*  44.44  *;V1D6{ 

6890  LPRINT  USING  *ft/sec  to  44.M  *|V2D6; 

6900  LPRINT  ’ft/sec* 

6910  LPRINT  USING  *  SEVERE  above  44.44  *iV2DGi 
6920  LPRINT  *ft/sec* 

6930  GOTO  6960 

6940  .PRINT  USING  *  MODERATE  above  44.44  *}V2DG; 

6950  LPRINT  *f  t /sec*: LPRINT 

6960  (.PRINT: LPRINT  *  DAMAGE  PROBABILITY  RED  SIDE  IS*:LPRINT 
6970  IF  V2DR*0  THEN  GOTO  7010 

6980  LPRINT  USING  0  NONE  TO  LIGHT  FROM  0  ft/sec  to  44.44  *?V1DRj 
6990  .PRINT  *ft/sec* 

7000  SOTO  7030 

7010  .PRINT  *  NOC  TO  LIGHT  froe  0  ft/sec  to  CRITICAL*  :LPRINT  iLPRINT 
7020  GOTO  7120 
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7030  V3DR=0  THEN  SOTO  7100 

7040  -PRINT  USING  •  MODERATE  free  ##.H  -;V1DR; 

7050  -PRINT  USING  "ft/sec  to  ##.##  *jV2DR{ 

7060  -PRINT  "ft/sec* 

7070  LPRINT  USING  "  SEVERE  above  ##.»#  *5V2DRj 
7060  L PRINT  •ft/sec* 

7090  GC”3  7120 

7100  .PRINT  USING  "  MODERATE  above  ##.«#  ”;V2Dft; 

7110  -PRINT  *ft/sec*;LPRINT 
7120  FOR  1=1  TO  9 
7130  -PRINT 
7140  NOT  I 

7150  ON  DIRV  SOTO  7160,  7160,  7190 
7160  -CR  1=1  TO  12 
7170  - PR  I  NT 
7160  'EXT  I 

7190  -PRINT  :  LPRINT  :  LPRINT  ;  LPRINT  j  LPRINT 
7200  ON  DIRV  GOTO  7210,  7620,  7210 

7210  i PRINT  CHR<  (27)  ;CHR$ (88)  ;CHRt(l)  jCHW(27)  ;CHR$(87) jCHRifl) ; 

7220  -print  *  t  lprint 

7230  -PRINT  "  RESULTS  FOR  UPBOUND  VESSEL  *  s  LPRINT 

7240  -print  *  :  lprint 

7250  -PRINT  CHR»(271jCHR$(87) 

7260  -PRINT 
7270  >1=1 
7280  v=40 
7290  6CiTi]  7360 

7300  -PRINT  CHR$(27);CH»(67)  «,CHW(l)j 

7310  -PRINT  *  eWWWMWWMOOMMQBOM WCOOCOM t *  :  LPRINT 

7320  -PR IN”  *  RESULTS  FOR  UPBOUND  VESSEL  (can't)”  :  LPRINT 

7330  -print  *  :  lprint 

7340  -PRINT  CHR$(27)  ;CHR$(B7)  jCHRt(O) 

7350  LPRINT 

7360  LPRINT  ”  VESSEL  GREEN  SIDE  RED  SIDE" 

7370  LPRINT  *  VELOCITY  DRAUDOUN  DRAWDQNN* 

7380  LPRINT  *  (ft/sec)  (ft)  (ft)  * 

7390  IF  NU<=N  THEN  N=NU-1 
7400  LPRINT 
7410  FOR  T=N  TO  N 

7420  LPRINT  USING  *  M.U  *}VU(T)| 

7430  LPRINT  USING  1  H.M  *|YUI (T)j 

7440  LPRINT  USING  *  #•.*#  •jYU£(T) 

7450  (€XT  T 

7460  IF  #=MM  THEN  GOTO  7480 
7470  GOTO  7530 

7480  ON  RUNU  GOTO  7490,  7510 

7490  LPRINT  *  CRITICAL 

7500  6CTG  7520 

7510  LPRINT  "  VESSEL  IS  GROUNDED  " 

7520  GOD  7570 
7530  N=W+1 
7540  N=N+44 

7550  LPRINT:LPRINT:LPRINT:LPRINTiLPRINT iLPRINT sLPRINTs LPRINT  «LPRINT:LPRINT 
7560  GOD  7300 
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7570 

7560  -3R  1=1  70  Z 
75$;  .--.NT 
7600  Nti"  I 

75:0  ON  DIRV  GOtO  7990,  7620,  7620 
7620  LPR  1ST  rLPRINT :  LPRINT :  LPRIKT sLPRINT 

7630  LPRINT  CHRi(27);CH»(88);CHR*(l);CHi?$(27)jCHfi*(fl7)jCHW(l); 
7640  -point  *  :  LPRINT 

7550  LPRIKT  *  RESULTS  FOR  DOWffiOUND  VESSEL  *  :  LPRINT 
7660  -PRINT  •  :  LPRINT 

7670  -PRINT  0:R$(27);CHR$(87)  ;CHR*(0) 

7630  -PR IN’ 

7650  r< 

7700  Ns*; 

77:0  SC ’3  7780 

7720  -PR  IN”  CHR$  (27)  ;ChW  187)  ;CHR$(1) ; 

7730  -PRINT  '  :  LPRINT 

:iv:  .PRIM’  "  RESULTS  FOR  DOWNBOUND  VESSEL  (con't)*  :  LPRINT 
775c  -print  ■  Qmmmemmmm&amwmnm  :  lprint 
760  .71, V  CHR*(27);CHM(87)iCHR$(0) 


7770  -PRINT 

730  -P-RIV’  " 

VESSEL 

6REEN  SIDE 

RED  SIDE 

790  -PRINT  " 

VELOCITY 

DRAWDOWN 

DRAWDOWN' 

7800  .  PRINT  " 

(ft /sec) 

(ft) 

(ft)  * 

7810  :•  ND(=N  THEN  N=ND-1 
7820  .PRINT 
7830  -'OR  T=N  TO  N 

7540  LPRINT  USING  *  ##.##  ‘{WHT)? 

7850  -PRIN;  USING  *  #♦.##  ’;YDl(T); 

7860  .PRINT  USING  *  M.M  " ; YD2 (T> 

70  70  KIT  T 

7880  :=  \=ND-1  THEN  SCTO  7300 

7890  GOTO  7950 

7900  ON  RUND  SOTO  7910,  7930 

7910  -PRINT  '  CRITICAL 

7920  SOTO  7340 

7930  LPRINT  *  VESSEL  IS  SROUNDED  " 

7940  GOTO  7990 
7950  *=N+1 
7960  N=N+44 

7970  LPRINT :LPRINT : LPRINT sLPRINT  sLPRINT iLPRIMT :LPRINTiLPRINT sLPRINT sLPRINT 
7980  SOTO  7720 

7990  SOTO  5670  s  REN  FRON  PRINTING  OUTPUT 
8000  REN 

0010  REN  TO  CHANGE  DATA 

6020  REN 

8030  A  REQUIRE! 

8040  AR£A2=ARE2 
0050  AREA3=ARE3 
0060  AR£A4=AR£4 
8070  C_i  :PR1NT  .-PRINT  .-PRINT 

8080  PRINT  ’THE  FOLLOWING  *NU  ALLOWS  FOR  CHANGES  IN  THE  DATA  JUST  RUN" 
8090  PRINT : PRINT 

8100  PRINT  ’INPUT  OPTION  I  OF  PARAItTER  YOU  WANT  TO  CHANGE. ’ 
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8110  PRINT: POINT 

3120  PRIM  'THE  OPTIONS  ARE  BROKEN  INTO  2  LISTS' 

6130  PR  I  NT -.POINT 

3140  PRINT  'OPTION  'O’  WILL  RECALCULATE  THE  DRAWDOWNS  WITH  TO  NUMBERS  CHANGED' 
6150  PRINT:PRINT 

3160  PRINT  'HIT  SPACE  BAR  TO  CONTINUE.' 

6170  0*=INK£Y$:IF  Q$<>'  *  THEN  SOTO  8170 
8180  CIS 
8190  PRINT 

8200  PRINT  0,  "RECALCULATE  DRAWDOWNS  WITH  DATA  CHANGED' 

8210  PRINT 

8220  PRINT  1,  “AREA  ON  GREEN  SIDE  OF  UPBOUND  VESSEL" 

8230  PRINT 

8240  PRIM  2,  “AREA  ON  RED  SIDE  Of  UPBOUND  VESSEL" 

8250  PRINT 

3260  PRIM  3,  "AREA  ON  GREEN  SIDE  OF  DOWNBOUND  VESSEL" 

6270  PRIM 

3230  PRINT  4,  “AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL" 

6290  PRINT 

6300  PRINT  5,  “PERCENTAGE  ICE  ON  GREEN  SIDE" 

8310  PRIM 

6320  PRINT  6,  " PERCENTAGE  ICE  ON  RED  SIDE" 

6330  PRINT 

3340  PRIM  7,  “DISTANCE  TO  UPBOUND  VESSEL" 

8350  PRINT 

3360  PRIM  8,  "DISTANCE  TO  DOWNBOUND  VESSEL" 

6370  PRINT 

8380  PRIM  9,  "SECOND  LIST  OF  INPUT  DATA" 

8390  ?RIM:INPUT  *  OPTION  I  ";QPT 

8400  IF  OPT  =  0  TON  GOTO  8460 
8410  IF  QPT=9  GOTO  8470 

8420  I-  (OPT <1)  OR  (OPT) 9)  TON  PRINT  'BAD  OPTION  I  *  :  6070  8070 

6430  CLS:PRINT : PRINT: PRINT: PRINT: PRINT 

8440  ON  OPT  GOSUB  8730,8760,8790,8820,8850,8870,8910,8930,8470 

8450  GOTO  8180 

8460  GOTO  1720 

8470  as  :  PRINT 

8480  PRINT  0,  "RECALCULATE  DRAWDOWNS  WITH  DATA  CHANGED' 

8490  PRINT 

8500  PRINT  1,  'WIDTH  OF  WATER  SURFACE' 

8510  PRINT 

8520  PRINT  2,  "VESSEL  BEAM' 

8530  PRINT 

8540  PRINT  3,  'VESSEL  DRAFT' 

8550  PRINT 

8560  PRINT  4,  "RIVER  VELOCITY' 

8570  PRIM 

8580  PRINT  5,  "UPBOUND  VESSEL  VELOCITY" 

6590  PRINT 

0600  PRIM  6,  "DOWNBOUND  VESSEL  VELKITY" 

8610  PRINT 

8620  PRINT  7,  "DEPTH  AT  CENTER  OF  CHANNEL' 

8630  PRINT 

8640  PRINT  6,  "FIRST  LIST  OF  INPUT  DATA' 
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6650  PR  I  NT: INPUT  *  OPTION  •  -jOPT 

8660  If  0PT=O  THEM  SOTO  8460 
8670  !F  OPT  =8  GOTO  8180 

8630  :r(OPT(l)  OR  (OPT) 8)  THEM  PRINT  'BAD  OPTION  l’:6QT0  5890 
6690  CLS 

8700  ?RINT:PRINT;PRINT:PRINT:PRINT 

8710  ON  OPT  GCSU8  8890,8950,8970,8990,9010,9030,9050,8180 

8720  SOTO  8180 

8730  PRINT :INPUT  ‘AREA  ON  6REEN  SIDE  Of  UPBOUND  VESSEL  in  sq.  ft.  =  "jflREAl 
8740  PREl^AREAl 
3750  RETURN 

8760  PRINT:1NPUT  ’AREA  (X  RED  SIDE  Of  UPBOUND  VESSEL  in  sq.  ft.  =  ‘iAREA2 
8770  fiR£2=AREA2 
8780  RETURN 

8790  PRINT: INPUT  'AREA  ON  GREEN  SIDE  Of  DOWNBOUND  VESSEL  in  sq.  ft.  =  ";AREA3 
8800  ARE3=AREP3 
8810  RETURN 

8820  PRINT : INPUT  ‘AREA  ON  RED  SIDE  OF  DOWNBOUND  VESSEL  in  sq.  ft.  =  ";AREA4 
8830  £R£4=AREA4 
88*0  RETURN 

8850  PRINT : INPUT  "PERCENTAGE  ICE  on  the  green  side  (cecinal  fore)  =  "jll 
8860  RETURN 

8870  rRINT:lNPUT  “PERCENTAGE  ICE  on  the  red  side  (Oecisal  for*)  =  *jI2 
8880  RETURN 

8890  PRINT :INP;C  ‘WIDTH  Of  WATER  SURFACE  in  feet  =  *)TW 
8900  RETURN 

8910  PRINT :INPUT  ‘DISTANCE  TO  UPBOUND  VESSEL  fro*  green  side  in  feet  *  *{P 
8920  RETURN 

8930  PRINT : INPUT  ‘DISTANCE  TO  DOWNBOUND  VESSEL  fro*  green  side  in  feet  *  “;P1 
8940  RETURN 

8950  PRINTslNPUT  ‘VESSEL  BEAN  in  feet  *  ‘jB 
8960  RETURN 

8970  PRINT: INPUT  ‘VESSEL  DRAFT  in  feet  =  ‘;D 
8980  RETURN 

8990  PRINT :1NPUT  ‘RIVER  VELOCITY  in  feet  per  sec.  *  *|V1 
9000  RETURN 

9010  PRINT :  I NPLfT  ‘UPBOUND  VESSEL  VELOCITY  in  feet  per  sec.  =  -;V2UP 
9020  RETURN 

9030  PRINT : INPL/T  ‘DOWNBOUND  VESSEL  VELOCITY  in  feet  per  sec.  »  ’jV2DP 
9040  RETURN 

9050  PRI NT :  INPUT  ‘DEPTH  AT  CENTER  OF  CHAMEL  in  feet  «  *;Di 
9060  RETURN 
9070  REN 

9080  REX  PLOT  RESULTS  ON  SCREEN 
9090  REX 

9100  CN  DIRV  GOTO  9110,  9130,  9110 

9110  «JX  =  1 

9120  G  jTQ  9140 

9130  NJX=3 

91  AO  :QR  T=1  TO  NU-1 

9i50  YSCl (T)=YU1 (T) 

9160  VJSC(T)=VU(T) 

9170  YSC2(T)=YU2(T) 

9180  NET  T 
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9130  *=1  TO  lffl-1 

9200  »SC3(7)*yDKT) 

9210  VwSC(T)=VD(T) 

9220  YSC4(T)=YD2(T> 

3230  t£i~  T 
9240  ZL3 
9250  <P  OFF 
9260  SCREEN  1 
9270  COLOR  0,3 
9280  PSc~(44,4),l 
9290  :0R  Z=1  TO  10 
9300  DRAJ  *L3  R3  D16* 

9310  NEXT  Z 

9320  "L3  R3  D3  U3" 

9330  -OF  Z=1  TO  10 
3340  "R22  03  U3* 

9350  kcl  T  Z 

9360  FCR  Z=1  TO  10 

9370  "R3  L3  U16" 

3360  \BT  Z 

939C  "R3  L3  U3  D3" 

S470  FC3  Z=1  TO  10 
94 1;  CFay  "L22  03  D3" 

9*20  NEXT  Z 

94 X  LOCATE  1,4  :  PRINT  "5* 

3440  JJCA’E  5,4  s  PRINT  *4" 

945C  JXATE  9,4  :  PRINT  *3" 

9460  LOCATE  13,4  :  PRINT  '2" 

9470  -XATE  17,4  :  PRINT  "1" 

9480  LOCATE  21,4  :  PRINT  "0" 

9490  LOCATE  8,2  :  PRINT  "D" 

9500  LOCATE  9,2  ;  PRINT  *R" 

9510  LOCATE  10,2  :  PRINT  "A" 

9520  LOCATE  11,2  :  PRINT  "W" 

9530  LOCATE  12,2  i  PRINT  "D" 

9540  LOCATE  13,2  :  PRINT  *0’ 

9550  LOCATE  14,2  i  PRINT  "W" 

9560  LOCATE  15,2  t  PRINT  "N" 

9570  LOCATE  17,2  s  PRINT  "f" 

9580  LOCATE  10,2  :  PRINT  "t" 

9590  LOCATE  22,6  :  PRINT  a0  4  8  12  16  20* 

9600  LOCATE  24,14  :  PRINT  ’^XITY  <«/§)" 

9610  ON  NUN  GOTO  9620,  9730,  9830,  9940,  10030 

9620  FOR  T=1  TO  NU-1 

9630  Ylil  (T)=158-YU1  (T)*32 

9640  V4j(T)=444VU(T)#ll 

%50  ?SET  (VU(T),YUHT) ) 

9660  ORAN  *W+2,  +2U4L4D4R4" 

9670  HOT  T 

9680  LOCATE  1,0  :  PRINT  Z$ 

9690  LOCATE  3,8  s  PRINT  "BREEN  -  UPBOJND" 

9700  MW  =  2 

9710  IF  I  (KEY!  »  *"  THEN  GOTO  9710 
9720  SOTO  9240 
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9730  FOR  T=1  TO  HU-1 
9740  YU2(T)=158-YU2<T)*32 
9750  PSET  (VU(T),YU2(T)) 

9760  DRAW  ‘BN+2, +2U4L4D4R4" 

9770  !OT  T 

9780  LOCATE  1,8  :  PRINT  1% 

9790  LOCATE  3,8  I  PRINT  “BED  -  UPSdJND* 

9800  HP  =  3 

9810  IF  I'KEY*  =  ”  TJCN  60T0  9810 
9820  ON  01 RV  SOTO  10030,  9240,  9240 
9830  FOR  T=1  TO  ND-1 
9840  YD1 <T)=15fl-YDl (T)*32 
9850  VD(T)=44+VD(T) *11 
9860  PSET  (VD <T) , YD1 (T) ) 

9870  DRAW  “6M+2,  +2U4L4D4R4" 

9880  NEXT  T 

9890  „XATE  1,8  :  PRINT  H 

9900  .OCATE  3,8  :  PRINT  'GREEN  -  DCWNBOUND" 

9910  KJ  =  4 

9920  IF  INKEY$  ='*  THEN  GOTO  9920 
9930  6CT0  9240 
9940  FC9  T=1  TO  ND-1 
9950  Y0c'(T)=158-YD2(T)*32 
9960  PSET  (VD(T), YD2(T) ) 

'9970  DRAW  "8M+2,  +2U4L4D4R4' 

9980  NEXT  T 

9990  .XATE  1,6  :  PRINT  2» 

10000  i-OCATE  3,8  s  PRINT  'RED  -  DCWNBOUND" 

10010  !NtJM  =  5 

10020  IF  INKEY8  =  ""  THEN  SOTO  10020 

10030  SCREEN  0 

10040  WIDTH  80 

10060  FDR  T*1  TO  NU-1 

10060  YU1(T)*YSC1(T) 

10070  VAJ  <  T )  =VUSC  ( T) 

10080  YU2(T)«YSC2(T) 

10090  l€XT  T 
10100  FOR  T*l  TO  WM 
10110  YD1(T)-YSC3(T) 

10120  VD(T1*VDSC(T) 

10130  Y02(T)=YSC4(T) 

10140  NEXT  T 

10150  GOTO  5700  i  REN  FRON  PLOT 
10160  REN 

10170  REN  SET®  RESULTS  TO  PLOTTER 
10180  REN 

10190  OPEN  'COM 1 : 9600, S, 7, 1 , RS, CS65535,  OS,  CD"  AS  «1 

10200  ON  DIRV  GOTO  10210,  10240,  10210 

10210  DIR=1 

10220  DST=P 

10230  GDTD  10260 

10240  DIR»2 

10250  DST«P1 

10260  FOR  T*1  TO  NU-1 
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10270  YSCl (T)=YU1 (T) 

10280  'AiSC(T)=VU(T) 

10290  YSCSO'YLECn 
10300  T 
10310  ca.^1  i  CAUM 
10320  FOR  T=1  TO  ND-l 
10330  ySC3(T)sVD1 (T) 

10340  VDSC(T)=VD(T) 

:0350  YSC4(T)*YB2(T) 

10360  NEXT  T 

1037C  CIS  :  PRINT  :  PRINT  :  PRINT 

10380  PRINT  ’CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS’  SPRINT 

10390  PRINT  “DRAW  GRAPH  OF"  :  PRINT 

10400  PRINT  1,  ’DRAWDOWNS  ONLY*  :  PRINT 

10410  PRINT  2,  *DANAGE  PRGiABILITY  DULY’  s  PRINT 

10420  PRINT  3,  ’BOTH  DRAWDOWNS  (  DAMAGE  PROBABILITY"  :  PRINT  :  PRINT 

10430  INDJT  “  INPUT  OPTION  " jSELE 

10440  IF  (SELEC)  OR  <SEL£>3)  THEN  GOTO  10370 

10450  OR  SELE  SOTO  10460,  10460,  10460 

10460  CIS  :  PRINT  :  PRINT  :  PRINT 

10470  PRINT  ‘CHOOSE  ONE  OF  THE  FOLLOWING  OPTIONS1  :PRINT 

10480  PRINT  UDR(W  GRflPH  Qp.  .  PRINT 

1>90  PRINT  l,  ’GREEN  SIDE  ONLY"  s  PRINT 

I050i)  PRINT  2,  "RED  SIDE  ONLY*  :  PRINT 

10510  PRINT  3,  ’BOTH  SIDES  ON  SAIC  GRAPH1  :  PRINT  s  PRINT 

10520  INPUT  ’  INPUT  OPTION  ’(SIDE 

10530  i=  (SIDE <1 )  OR  (SIDE13)  Tr€N  GOTO  10460 

10540  CLS:PRINT  :PRINT  :PRINT  :PRINT  :PRINT 

10550  PRINT  "PUT  PLOTTER  ON  LINE  -  REPLACE  PAPER1  jPRINT 

10560  PRINT  “INSERT  THICK  BLACK  PEN  FOR  PEN  #1’  SPRINT 

10570  PRINT  "INSERT  FINE  BLACK  PEN  FOR  PEN  #2"  jPRINT 

10580  PRINT  jPRINT  jPRINT 

10590  PRINT  "HIT  SPACE  BAR  TO  CONTINUE.’ 

10600  Ot=INKEY$:IF  0$(>  ’  *  Tf£N  GOTO  10600 
10610  ON  SElE  GOTO  10620,  10640,  10620 
10620  PRINT  *1,  ’IN;SPt;PA1500,6480;PD’ 

10630  GOTO  10660 

10640  PRINT  II,  ’IN;SP1;PA1500, 1500; PO’ 

10650  GOTO  10700 
10660  FOR  1*1  TO  6 

10670  PRINT  fl,  "INjYTjPOjPRO.-UOjRJ" 

10680  NEXT  I 

10690  PRINT  II,  "INjYT" 

10700  FOR  1-1  TO  6 

10710  PRINT  #1,  ’IN;XTjPDiPR875,0iPU* 

10720  CXT  I 

10730  PRINT  II,  "INjXT* 

10740  PRINT  II,  ’INjCP-1, -ljLB16'  +  CHR*<3) 

10750  PRINT  II,  ’CP’ 

10760  PRINT  II,  "INiPA6750, 1500" 

10770  PRINT  II,  "IN;CP-1,-1;LB12*  ♦  CHR» (3) 

10760  PRINT  II,  ’CP* 

10790  PRINT  II,  "INjPASOOO, 1500* 

10600  PRINT  II,  ’IN;CM,-ljLB  8*  ♦  CHR$<3) 
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:oa:C  ?r:nt  #i,  "CP* 

10620  PRINT  #1,  "IN;PA3250, 1500" 

;0a 30  PRINT  #1,  "INjCP-1, -i;LB  4*  ♦  CHRN3) 

10840  PRINT  §1,  ’CP" 

10860  PRINT  #1,  *IN;PA1500, 1500° 

10880  PRINT  *1,  "IN;CP— 1, -1 ;LB  O’  ♦  CHR4(3) 

10870  PRINT  #1,  "CP* 

10680  OS  SR £  SOTO  10890,  11010,  10890 
10690  PRINT  11,  “IN;PA1500, 1500* 

10900  PRINT  II,  *  IN;  CP-2, -0.1  ;LBO*  ♦  CHRI<3) 

1091 C  PRINr  II,  "CP" 

10920  PRINT  *1,  *  IN; PfilSOO, 3160“ 

10930  PRINT  11,  "INiCP-2, -0. 1|LB1“  +  CHW(3) 

109W  PRINT  ii,  ’CP1 

10950  PRINT  #1,  "IN;PA1500, 4820" 

10960  PRINT  II,  *IN;CP-2,-0. 1;LB2*  +  CHR*(3) 

10970  PRINT  #1,  "CP" 

10960  PRINT  11,  "IN;Pfll500,6480" 

10990  PRINT  II,  "INjCP-2, -0. 1;LB3*  +  CHR$(3) 

11000  PRINT  li,  "CP;PJ" 

llClO  Js  S£_£  SCTC  11040,  11020,  11020 

11010  ?RI\T  *1,  *IN;PA700,64BO;PD;* 

11030  PRINT  #1,  "PA700, 1500;PU;‘ 

1.040  C\  SELE  GOTO  11080,  11110,  11050 
110SC  PRINT  II,  "IN;PA2000,  7000 j* 

11060  PRINT  II,  *SI. 3, . 7, LB**DRAWDQWN  ♦  DAMAGE  vs  VESSEL  SPEED**’  +  CHR$(3) 

11070  30 TO  11130 

11080  PRINT  #1,  " IN; PA3000, 7000J ’ 

11090  PRINT  #1,  "SI.3,.7,LB**D(MMD0UN  vs  VESSR  SPEED**’  ♦  CHR*(3) 

11100  SOT0  11130 

11110  PRINT  #1,  *IN;PA3000,  7000;* 

11120  PRINT  II,  *SI. 3, . 7,LB**DANAGE  vs  VESSEL  SPEED***  +  CHRi(3) 

11130  PRINT#!,  "IN;PA4475,  1100* 

11140  PRINT  #1,  ’LBVESSEL  SPEED  (ft/sec)*  ♦  CHR»(3) 

11150  Os  SELE  GOTO  11160,  11190,  11160 
11160  PRINT  It,  "IN;PA1200, 3250* 

11170  PRINT  11,  "DIO,  ljLBORANDOWN  <ft)‘  ♦  CHR*<3> 

11180  ON  SELE  GOTO  11210,  11190,  11190 
11190  PRINT  #1,  *IN;PA420,1900* 

11200  PRINT  #1,  "DIO,  1;LBSH0RE  AND  NEARStCAE  DAMAGE  PROBABILITY*  *  CHR*  (3) 
11210  PRINT  II,  " IN;SP£ j PA1 750, 6700* 

11220  «  SIDE  SOTO  11230,  11250,  11270 

11230  PRINT  #1,  ’USITE:  "Z*  *-  BREEN  SIDE’*  CHRI(3) 

11240  GOTO  11280 

11250  PRINT  #i,  “LBSITE:  *Z$  *-  RED  SIDE"*  CHWI3) 

11260  GOTO  11280 

11270  PRINT  #1,  "LBSITE:  *Z$  *-  BOTH  SIDES**  CHR$<3) 

11280  PRINT  #1,  *IN;PA1750,6350* 

11290  1-  DIR  =  2  GOTO  11320 

11300  PRINT  II,  "LBUPBOUND  VESSEL  *  ♦  CHR*<3) 

11310  3CT0  11330 

11320  PRINT  #1,  ‘LBOOWNBOUND  VESSEL  *  ♦  CHR»<3> 

11330  REM 
11340  REN 
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11350  P9IMT  #1,  "IN;PA1 750, 6050* 

11360  PRINT  #1,  "LBVESSEL  BERK  **B  "ft"+  CHRN3) 

11370  MINT  #1,  "INjPfU 750, 5900' 

11360  PRINT  il,  "LBVESSEL  DRAFT  ="D  ‘ft’*  CHRN3) 

11390  PRINT  #1,  "INjPAl 750, 5750" 

11400  PRINT  #1,  "LBDIST  TO  VESSEL  (green)  **DST  "ft"+  CW»<3) 
11410  Ch  SELE  SOTO  11520,  11420,  11420 
11420  ON  SIDE  GOTO  11430,  11460,  11430 
11430  PR1NT#1,  "IN}PA1 750, 5500" 

11440  PRINT  II,  "LBSH0R£<gr.)="NC6»""  +  CHW(3) 

11450  PRINT  #1,  "iNjPfll 750, 5350" 

11460  PRINT  #1,  "LBS0IL(gr.)=*SL6f»"*  ♦  CHRM3) 

11470  Jt  SIDE  SOTO  11520,  11460,  11460 
11460  PRINT  II,  "IN; PA1750,5200" 

11  *.90  PRINT  41,  "LBSHORtlredJs’NCKI1"  +  CHM<3) 

11500  PRINT  #1,  m IN ; PA1750, 5050" 

11510  PRINT  #1,  "LBSQIL (red ) =*SLRE$’ "  +  CHR«<3) 

11520  ON  SELE  GOTO  11630,  11530,  11530 
11530  PR  IN7  #1,  "IN;PA7000,6500“ 

11540  PRINT  #1,  "LBSHORE  AND  NEARSHORE  "♦  CHR$<3) 

11550  PRINT  #1,  "IN;PA7000,6350" 

11560  PRINT  II,  "LBDAHAGE  PROBABILITY  "♦  CHRN3) 

11570  PRINT  #1,  “IN;PA7100, 6100" 

11580  PRINT  II,  "LBA  =  NONE  TO  LIGHT  "♦  CHR413) 

11590  PRINT  #1,  "INjPA7100,  5950" 

11600  PRINT  II,  *LBB  =  MODERATE  "♦  CHR»(3) 

11610  PRINT  II,  "IN;PA7100, 5600* 

11620  PRINT  II,  *LBC  =*  HIGH  *♦  CHR*(3) 

11630  PRINT  II,  "IN;PA7000,  1950" 

11640  PRINT  II,  "LBRIVER  VEL.="Vl"ft/s«c"  +  CHR*(3) 

11650  H  SELE  SOTO  11690,  11660,  11660 
11660  CN  SIDE  GOTO  11690,  11690,  11670 
11670  PRINT  "IN;PA6400,500" 

11660  PRINT  II,  "LB0AKA6E  BOTH  SIDES  "  ♦  CHR*(3) 

11690  1=  ITH  =  0  GOTO  11720 

11691  ITT  =  ITH*10 

11692  IB  =  INT(ITT) 

11693  IC  =  IB/ 10 

11700  PRINT  #1,  ”IN;PA7000, 1750" 

11710  PRINT  II,  "LBAVG  ICE  THICK  «  "IC  "in."*  CHRI(3) 

11720  PRINT  81,  "PUjSPO;" 

11730  CIS: PRINT  sPRINT  iPRINT  SPRINT  sPRINT 
11740  PRINT  "WHEN  PLOTTER  PAUSES  -"  1  PRINT 
11750  PRINT  "INSERT  GREEN  PEN  FOR  PEN  II"  sPRINT 
11760  PRINT  "INSERT  RED  PEN  FOR  PEN  12"  sPRINT 
11770  PRINT  : PRINT  sPRINT 
11780  PRINT  "HIT  SPACE  BAR  TO  CONTINUE." 

11790  34=INKEYIjIF  »(>  "  "  THEN  SOTO  11790 
11800  IF  DIR=2  GOTO  14190 
11810  ON  SIDE  GOTO  11820,  12170,  11840 
11820  PRINT  #1,  " IN;SP1 ;PA4450, 800" 

11830  60T0  11850 

11840  PRINT  11,  "IN;SP1|PA3000, 800* 

11850  ON  SELE  GOTO  11860,  11880,  11860 
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11860  PRINT  #1,  "iBDRAWDOWN  GREEN  S.'OE  *"  ♦  CHWI3) 

: 1870  CN  SELE  GOTO  12100,  11 880,  11880 
11880  Ok  SIDE  SOTO  11890,  12170,  11910 
11090  PRINT  il,  "Pfl4*50,500* 

11900  3CT0  11920 

11910  PRINT  il,  "Pfll000,500“ 

11920  PRINT  #1,  "LBDAHfiGE  GREEN  SIDE  *  ♦  CHR» (3) 

11930  rJi  SIDE  GOTO  11940,  12170,  11990 

119*0  PRINT  #1,  " IW; 6450 {400 ;6950i 600 

11950  -OR  Y=0  TO  600  STEP  100 

11960  PRINT  #1,  "PU‘i&*50jYj*PD'j6950;Y+500 

11970  NEXT  Y 

11980  GOTO  12030 

11990  PRINT  il,  "IW*;3000;400;3500;600 

12000  'DR  Y-0  TO  600  STEP  100 

12010  PRINT  ■pj"j3000;Yj’PD*;3500;Y+500 

1202C  NEX'  Y 

12030  PRINT  #1,  -PI** rW" 

120*0  »  SIDE  SOTO  ^100,  12170,  12050 

12050  PRINT  il,  "Ili'  ;8400;400;8900;600 

12060  FDR  Y=0  TO  600  STEP  100 

12070  PRINT  #1,  "PU";8400;Y;"PD" j8900;Y+500 

12080  NEXT  Y 

12090  PRINT  il,  "PU; IW" 

12100  ON  S IS  GOTO  12110,  12180,  12110 

12110  IF  DIR=2  GOTO  U12C 

12120  FDR  T*1  TO  KJ-1 

12130  VU(T)=( (VU(T)/16)*7000)+1500 

121*0  YU1 IT)=( (YUl(T) /3)*5000)+1500 

12150  PRINT  il,  "IN;SM*;PA",VU(T),  V.WIIT),"  ♦  CHR$<3) 

12160  NEXT  T 

12170  ON  SELE  GOTO  13050,  12180,  12180 
12180  IF  DIR=2  GOTO  12410 

12190  IF  CALU=2  GOTO  12410 

12191  IF  MG1*100  THEN  NG1=2 

12192  IF  RRblOO  THEN  NR1*2 

12193  IF  NG2=100  THEN  W2*2 

12194  IF  NR2*10O  TKN  NR2=2 

12200  NG= ( (V1UG/16) *7000) *1500 
12210  m=((VlUR/16»«7000)*1500 
12220  IG“(<N61/3)*5000)+1500 
12230  IR=( (XR1/3) *50001+1500 
12240  NB=( (V2U3/16)  *7000) +1500 
12250  NR= ( ( V2URX 1 6) *7000) +1500 
12252  IF  V2UG30  THEN  NG=0 
12254  IF  V20R=0  T*N  NR=0 
12260  KG=1500 

12270  KR=150O 

12280  RG=UV3UG/16)  *7000)  +1500 
12290  RR=!(V3UR/16> *7000) +1500 
12292  IF  V3U6=0  THEN  RG=0 
12294  IF  V3UR*C  THEN  RR*0 
12300  JB= ( ( NG2/3) *5000) +1500 
12310  ( (NR2/3) *5000) +1500 
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:Z3£C  3=250 

12330'  _G=((PUG/3)*5000)*1500 
12340  _LR=( (PUft/3) *5000) +1500 
12350  IF  LOG)  LUR  DO  60T0  12390 
12360  IF  LURXU6  THEN  SOTO  12370 
12370  ^JG=LUR 
12360  GOTO  12400 
12390  aiR=LUG 
12400  CALL!  -  2 

12410  ON  SIDE  SOTO  12420,  13050,  12420 
12420  ON  SELE  6070  13050,  12430,  12430 
12430  PRINT  *1,  "IMjPftSOO, 300* 

12440  PRIM  #1,  "DIO,  1  ;LBGR£EN  *  ♦  CHW(3) 
12450  X»700  :  Y=I3 

.2460  PRIM  #1,  " IM; Pfl", X, ",  ",Y, "jPDj” 

12470  X=500 

1243:  PRIM  41,  "?ft",X,  V,Y,"5PUj* 

1243:  1-700  :  Y=JG 

:2K5  PRINT  «,  "INjPfl",X,*,  ",Y,  *;PD;" 

12510  X=500 

12520  PRIM  #1,  ’Pft'.X,  ",  ",¥,  "j?Uj" 

12530  X=650  :  Y=1480+((IS-KG)/2) 

12540  »I«7«,  "I.V;Pfl",X,  *,  ",  Y, ";PU|" 

12550  PRIM  *1,  "DIO,  1  ;LBfi  ■  ♦  CHR$<3) 

12560  I-  NS=0  SOTO  12640 

12570  X=650  :  Y=lG+((JG-IG)/2t-20 

12560  PRIM  tl,  "IN;PA",X,*,",Y,*5PU;* 

12590  PRINT  *1,  "DIO, 1;LB8  "  ♦  CHR»(3) 

12600  I‘  RG=0  SOTO  12640 
12610  X=650  :  Y=JG+((LUG-JG)/2) 

12620  PRINT  *1,  "IN;Pfl",X, ", ", Y, "jPU?" 

12630  PRIM  II,  "DIO,  ljLBC  "  ♦  IHR$<3) 

12640  X='S  i  Y=K5 

12650  PRINT  #1,  ■IN;Pfl",X,'1-,Y,,}PD?‘ 

12660  Y=IG 

12570  PRINT  #1,  "PfiV,  V.VjPO}* 

12660  X=KS 

12690  PRINT  #1,  "PA",  X,  ",",Y,  "jPDj* 

12700  Y*KB 

12710  PRINT  #1,  "PA",  X, ",  ",Y,  "jPUj" 

12720  PRINT  »1,  "IW";KS;K6;M6;I6 

12730  FOR  Y=KG-(MG-KG)  TO  16  STEP  6 

12740  PRINT  il,  "PU“;KBiY}"PD" ;MGjY+ (H&-K6) 

22750  f€XT  Y 

12760  PRINT  II,  "PUjIH" 

12770  IF  N3=0  B0T0  13060 
12780  X=I»G  :  Y=KS 

12790  PRIM  41,  "!N;PA",X,",",Y,";PD;" 
12600  V=JB 

12810  PRINT  II,  "PA", X,",*,Y,";PD;" 

12820  X=NG 

12830  P9IMT  il,  "PA",  X, ",  ",Y,  "jPD}* 

12840  Y=K6 

12850  PRINT  *1,  "PA", X, ", *,Y, "5P®}* 


12860  PRINT  #1,  "  IW  ;M6;KS;NG;  J6 

12870  FUR  Y=K6-(M&-«)  TD  JG  STEP  Q 

12880  PRINT  #1,  "PU'jNGjY.-'PD’jNGjYMNG-*) 

12890  f£XT  Y 

12900  PRINT  #1,  ■PUjIU" 

12910  IF  RG=0  SOTO  13080 
12920  X=N6  :  Y=KS 

12930  PRINT  #1,  "Pft*,X,’f“,Y,’|PD}' 

12940  Y=lUB 

12950  PRINT  #1,  "PA*,  X,  *, ’,Y,  *{PD{* 

12960  X=RG 

12970  PRINT  II,  "PA",X, ", ",Y, ";PD;" 

12980  Y=KE 

12990  PRINT  II,  “PA'.X,  V,V|PU;* 

13000  PRINT  #1,  ,I«*;NG{KG;RGiUJB 
13010  FOR  Y=KG-(RG-NG)  TO  LUG  STEP  Q 
13020  PRINT  #1,  •PJ,;NGjY;"PD*;RG;Y+(RG-KG) 

13030  NeXT  Y 

130*0  PRINT  II,  "PUjIH" 

13050  ON  SIDE  GOTO  14060,  13060,  13080 
13060  PRINT  II,  *INjSP2;PA4450, 800* 

13070  GOTO  13090 

13080  PRINT  II,  "IN;SP2;PA6000,800" 

13090  ON  SEL£  GOTO  13100,  13120,  13100 

13100  PRINT  II,  "LBDRAWDOWN  RED  SIDE  ♦  CHR$(3) 

13110  CX  SE_£  GOTO  13560,  13120,  13120 

13120  ON  SIDE  GOTO  14060,  13130,  13150 

13130  PRINT  #1,  -PA4450, 500* 

13140  6QTQ  13160 

13:50  PRINT  II,  "PA3800,500" 

13160  PRINT  II,  rLK3«E  RED  SIDE  *  ♦  CHRt(3) 

13170  CN  SIX  60T0  14500,  13180,  13230 

13180  PRINT  II,  *IU*;6250;400;6750{600 

13190  FDR  Y=0  TO  600  STEP  100 

13200  PRINT  II,  “PL* ;6750; Y ; "PD* j6250; Y+500 

13210  NEXT  Y 

13220  GOTO  13270 

13230  PRINT  II,  HIWa;S600;400;6100|600 

13240  FOR  Y=0  TO  600  STEP  100 

13250  PRINT  II,  -PU“j6100iYj"PO-|5600jY+500 

13260  (EXT  Y 

13270  PRINT  #1,  *BJ;IW* 

13280  ON  SIDE  GOTO  14060,  13340,  13290 

13290  PRINT  il,  "IWa58400{400;8900{600 

13300  FOR  Y=0  TO  600  STEP  100 

13310  PRINT  #1,  ,PU,{8900;Y;*PD";8400,,Y+500 

13320  (EXT  Y 

13330  PRINT  II,  "PU;IW" 

13340  PRINT  II,  aPA900,900" 

13350  PRINT  II,  "DIO,  ljlBRED  "  ♦  CHRI(3) 

13360  X=700  :  Y=IR 

13370  PRINT  II,  "IN.-PAV,  V,Y,*}PDr 
13380  1=900 

13390  PRINT  II,  "Pft*, X,  *, ",  Y, *jPO|* 
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1346C  :r  KR=0  GOTO  13450 
:34’v  X=70O  :  Y*JS 

13420  P^INT  II,  "IN;PA",X, *;«){■ 

■3430  1=900 

1344C  PRINT  II,  "Pfl’.X,  *,  *,Y,  *;PU;' 

13450  X=850  :  Y=1480+((IR-KR)/2> 

13460  PRINT  11,  -IN;Pfl-,X, 

13470  PRINT  II,  "DIO, 1;LBA  1  ♦  CHR$<3) 

13480  1-  NR=0  SOTO  13560 

13430  X=850  :  Y=IR+< (JR-IR) /2)-20 

135CC  PRINT  tl,  "IM;Pft",X, *,“,Yf“;PUj" 

13510  PRINT  II,  ’DIO, 1 ;LBB  "  +  CHR«(3) 

13521  Ir  RR=0  SOTO  13560 
1 3530  1=650  :  Y=JR+ ( (LUR-JR) /2> 

:33a1  PRINT  #i,  "IN;PA", X,*, *, Y, *{PU;* 

13550  PRINT  #1,  ‘DIO,  1;LBC  1  +  CHRI<3) 

13561  Ir  DIR=2  GOTO  14420 

13570  C\  S2LE  SOTO  13580,  13650,  13580 

13560  nR  "7*1  TO  NU-1 

13530  YJ£(T)=((YJ2(T)/3) *5000) *1500 

13500  iN  SIDE  GOTO  1362C,  13610,  13620 

13610  Vd(T)=( (VI! (Tl/16) *7000) +1500 

13620  PRINT  #1,  "IN;SN+;PA",VU(T), ", ", YU2IT), " 

13830  NEXT  T 

136*0  ON  SELE  GOTO  14060,  13650,  13650 
13650  X=f!R  Y=KR 

13660  PRINT  II,  "IN;PA",X, ", ", Y, ";PD;" 

13670  V=IR 

13680  PRINT  II,  "PA",  X, ",  ",Y,  ";PD;" 

13690  X=KR 

13700  PRINT  II,  "PA",  X, ", ",  Y,  “;PDj" 

13710  Y=KR 

13720  PRINT  II,  "PA",  X, ", ",  Y,  "jPUj* 

13730  PRINT  II,  "IW'jKRjKRjNRjlR 

13740  FOR  Y=KR-(MR-KR)  TD  IR  STEP  Q 

13750  PRINT  II,  “PU" ;MR;Y; “PD* ;KR;Y+ (MR-KR) 

13760  NEXT  Y 

13770  PRINT  II,  "PUjIU" 

13780  IF  NR=0  GOTO  14060 
13790  l=NR  s  Y=KR 

13800  PRINT  *1,  *PA",I,*,  *,Y,*|PDj* 

13810  Y=JR 

13820  PRINT  II,  "PA",X,  *, ",Y, ’jPDj* 

13830  X=NR 

.3840  PRINT  #1,  -Pfl", X,  -,Y, -jW);- 
13850  Y=K£ 

13860  PRINT  #1,  *PA",X,  V.VjPUj* 

13870  PRINT  II,  "IU’jffljKRjNRjJR 

13880  FOR  Y=WMNR-NR)  TO  JR  STEP  0 

13890  PRINT  #1,  ’WiNRsYj’PD'jKRjY+INR-W) 

13900  fEXT  Y 

13910  PRINT  #1,  "PUjIU* 

13920  IF  RfrO  GOTO  14060 
13930  X=NR  :  Y*KR 


♦  CRR*  (3) 
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1394.  PRIM  #1,  "Pfi'.X,  V.Y/jPD;- 
13950  Y=OjR 

13960  PRIM  #1,  “Pft'.X,  V,  V;PO;' 

13970  X=RR 

139fr0  PRINT  #1,  "PA',X, ", ",  Y,  ”;PD}' 

13990  Y=KR 

14000  PRIM  #1,  "Pfl’,X, ", "|Y,“jPU;* 

14010  PRINT  #1,  “IW" ;NR;KR;RR;LUR 
14060  MR  Y=KR-(RR-N,R)  TC  Ll'R  STEP  Q 
14030  PRINT  #1,  "P'J" ; RR;Y ; "PD"  ;NR; Y+  (RR— NR) 
14040  NeXT  Y 
14050  PRIM  #1,  "PUjlW" 

14060  :r  d:r=2  goto  14500 
14(70  d:r=2 
14  :i:  dst=3i 

109-0  PRINV  #1,  *PU;SPO;Pfll, 4000" 

14:0?  GN  CIRV  GOTO  14500,  10540,  10540 

141 ::  SELE  8Ct0  14120,  14190,  14120 

14.2:  3N  SIDE  GOTO  14130,  14190,  14130 

14130  MR  T=i  '0  ND-1 

14 140  ',r  n  - ( (VL( T)  /16) *70001+1500 

14150  YTJ1  (T)  =  (  (YD1  (Tl/3)  *5000) +1500 

14 ISC  PRINT  #1,  ”IN;SM*jPA%  W)(T),  *, YD1 (T), * 

14170  VZXT  T 

14io j  GOTO  12170 

14190  Ic  CftLD=2  GOTO  11810 

1+191  IT  *81=100  T>0  HG1=2 

1419c;  IF  K62=100  THEN  MG2=2 

14193  IF  NRl=30O  TIO  NR1=2 

14194  IF  NR2=100  THEN  MR 2=2 

14200  ME=((V1DG/16) *70001+1500 
14210  KR= ( (VI  DR/ 16) *7000) +1500 
14220  16=  ((*1/3)  *5000) +1500 
14230  IR=((NRl/3) *50001+1500 
1424C  *€=(  (V2DG/16) *70001+1500 
14250  \R=((V2DR/1S)«7000)+1500 
14252  IF  V2Do=0  THEN  N8=0 

14254  IF  V2DR=0  THEN  NR=0 

14260  KB=1500 

14270  KR=1500 

14260  HB=((V3DG/16I *7000) +1500 
14290  RR=((V3DR/16) *70001+1500 
14292  IF  V3DG=0  T1CN  RG=0 

14294  IF  V3D6=0  THEN  RR=0 

14300  J5=((NS2/3) *5000) +1500 
14310  JR=((HR2/3) *5000) +1500 
14320  0=250 

14330  i-UG=(  (PDG/3) *5000) +1500 
143*0  L JR= ( ( PDR/3 1 *5000 1 + 1500 
14350  IF  LU61LUR  THEN  SOTO  14390 
14360  IF  LURXUG  THEN  GOTO  14370 
14370  UXKUR 
14360  SOTO  14400 
14390  OJR=LUG 


♦  CHR*<3> 
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ho;  y-j&i 
144:0  SC*0  11810 

HO  :  >  S£L£  SOTO  14430,  13640,  14430 

14430  FOR  T=1  TO  ND-1 

14440  YD2(7)=( (YD2(T)/3)*5000)+1500 

14450  3s  SIDE  GOTO  14470,  14460,  14470 

14460  40 <T)s((VD(T)/16) *7000>+1500 

14470  PRIM  II,  "INjSH+jPfl*, VD(T), *, *,  YD21T),  *  4  CHR$(3) 

14480  l€XT  T 
14490  SG'O  13640 

14500  CK  DIRV  6GT0  14510,  14570,  14510 
14510  -OR  T=1  TO  NU-1 
14520  V.1(T)=VSC1(T) 

14530  VL<T>=VUSC(T) 

14540  YJ2(T)=YSC2(T> 

14550  MXT  T 

14560'  CN  DIRV  GOTO  1462u,  14570,  14570 
1457C  -2R  T=1  TO  ND-1 
14560  y:ia=Ysc3(T) 

14590  70(T)=VDSC(T) 

14600  YD2(T)=YSC4(T) 

14610  M<T  T 

14620  PRIM  II,  ”PU;SP0;PA1,4000" 

14630  CLS  :  PRINT  ;  PRINT  ;  PRINT  s  PRINT 

14640  ISQUT  "DO  YOU  WANT  TO  DRW  MORE  GRAPHS  (Yes,No)'iA$ 

1465C  ”  LEFT$(A$,  1)  =  “Y*  OR  LEFT$(A«,i)  =  "y*  THEN  6070  10200 
14660  HOSE  #1 

14670  KTO  5730  :  REN  FRCN  PLOTTER 
14680  REN 

14690  REN  RETURN  TO  MENU 
14700  RETt 

14710  .3AD,0NE.SUB",R 
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